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#£<7)t4x BUCO-^— ^T'OO-O-? 1 

^— L^^(4x BASICT'#A N tl 

f:7P^7A^ t^TV-»i 
-fb-rSZ^(4T'#^L^ 15iJx.(4x 

• r -r * ? tt tt&AHJrtf&WfSx! 

•KANJre- Kx ANK^E- K^9)*J 

^4 ifx ^~ L o^T'(4T'# ^> 
z^A<feSo -f&t-fcx fixity***) 

L -3 ^ErrFffl op^" t) cfe S o 

p >/ \°-r 7— tfinei" s r i: a*t* 

-K • P>/N°-f 7— ■=£— KfcSS 
(z-bT) »J ^x.T^-9 C t tfXB So 
t^^Tx ^— L^>S(-t4"e#4^ x 
" £14^E- K£W$;IT4 >? 
7°U ?-tz^«b-ttni4t^^lt/co 
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:* 



ntt b&ti7u9'?AV—t' 

7 \Z X-o X I * ■5>^<— L ^%&W) 

r>m\.tt- h 'J 'V Vtz^tz(T>X\ 
*-MJ7y^D7 MCULT 
MSXcO«& Aft* fcf ltT*:*--<r 

-^letb-r&iz^ s-tmsx- 

DOS ($. fc(i MSX-DOS 2 ) #'jZ^ 

<7)MSX-DOS<7» * 7 s - A(7)A-3 fc 
7*-f * * & 1 *fc#o TLJ-5 <7)*< 
1*1^-3 "5 o F0RMAT^#<7)$f L 

MSX-DOScDv^T-A^Aofcx 
-r^^^rA K7<7; fll£Lfc$f 
U^V*?£B r^-f/fCAft 
T(1 K7-ry<7)%g-«^.yfe- 

vtzfi^TTV^SrAft^/LS) 

MSX-D0S?rtBli?-t+-g> o *L'T\ 
A > COPY MSXDOS * . SYS B: 
A>COPY COMMAND * . COM B: 
%MfU B h'7<yi:y^TA 

7n9'z?l±y--\i7lzAiXZ> s 
*XBASIC.BIN*£ *SET40.COM**< 

^-L^mnXfatu A h'7^7' 

£-7°P 9'=y AV— \z\7(P>=r-i 79 

A> COPY XBASIC.BIN B: 
A> COPY SET40.COM B: 
T'B K9--fVfc=itf-*"*o Zft 
TV<— L -7^:— (3T(7)3QKl v * T" 
AlJ^fifttt, yp^Ait- fc** 
<7)7=V *?(;£, -779 — £LTi% 

-<- l r>-mtz-\,z*kimrt- z> \z 

It, MSX- D0SC7) n v > K =7 -f > 
T*OT<7)J: 5 IZA^T-So 
A>SET40 XBASIC.BIN 

9iz7.<7)^ BASICA^Krr-5o — 
JEptiV) BASICS |&b U ttWiT, 

V-t^Mi BAS\UZt£r>XZ<nt? 
m M L tz 7*-f * ? <7) AUTOEXEC. 



BATIZ. iy;$<7)i^£g£iLTfc 
W£ ^c^-r-r^^^rAnXMSX 
£*g»-r*£(tT'<- L -7g*«g 
HifiUlzSKl-r S *^- L 7t*>7 

XA7*-f ^^*A^fift-r*o^:#M 

A>C0PY CON B:AUTOEXEC.BAT 
SET40 XBASIC.BIN 
~Z(CTRL*#LWbZ) 

z nx*$> £ ta^- l 7tf;-ir 

£*g»3l*fcl.^#tt, Z(7)-<- 
L 7t*>^f A<7)-r -r ^ ^ ^r-tz »y 
h LTMSX£^»)£-ti-S£f(tT- 

■RAMCJMWS 

MSX^-Logfc-|J 

SET40.COM(i, BASICS >bJi,T 
£RAM<7)4000H~7FFFH<7)?gfe&Z 
77V f-: > a >*$&<*-£, 
BASIClZ^iS^^T 7°P ?3 A 
XBASICBINAW— L offc-lf 
#tett<7)T\ ±.T^-7/iSf^(i» 
RAM(Z-<- L -7Sfc-l?£#S<* 
itT BASICfcigft $ it 5 Z t (Z ti 

rom*j— h i; -y i><nt--h 'J IZR 

RAM&te^TBASIC£J»r-&J: 
-?{ZftoTU-S> 
lot, JERAM&RAM-f-f** 

* h 2<7):7°p?*7A£A:*jLT(£ 

Llv 
-c^yn^Ali, ftJfS-tfT 

n^*<7"P^7A ^tICZRUN 

R£«< Z<7)R£#<7.t°-K 

?r^';*^-f^:^Tfcz-9 fir*- 

*-£*¥T ^ 7°P ^7 A(tit* 5 

^tLT'(J^<— L O^CT)P >/\°< 
7-^E- KT'ZC7)Z7°P^'7A^^ 

awi RUN<7)a\b»j(z N 



CALL RUN 

RUN 

£?<t)TtUtt-9— V'(^> 

^*-/\*-)(i *CALL*c7)^B&^/j: 

y P ^'^ AA^r $ tlT I - •& C7)*< 
^* x Si:JS-3o ztiA^— Lot 

iz±i)^is>mtznxmfzti 

X^^>7n9'^L.U(Dtz 

mz s Z.C»7U9'=7]+\ZV7\- 
Z(T>7u 9 'z? A %mn L Ts CALL 

RUNT^fT?-ttT^J:-9o 
Syntax error in 15 

o SiJ(Z-«7)yp^7AtiMiii^ 
T^l\ I^LtZ : ^iic7)RUNT'^T 

■r•g)^:^^^^^Il)< <nt<6mx'£ 

%-tzhi a 

ztiit, mz$>m^tziit\ *< 
-L-jfa basic c7)^^-^-r^< 

X v v >mtX£ %*^tt•«i^l^ 
rfr«b/c*o *0PEN*3t^*PRINT #1, " 
A < ^— L ^f(7)P >/\°l' 5— ; E— 
KT'(i^fflT'#^l\ CALL RUN 

ttr^x-v^mitLxmnrz 

Xit^— L ^mx-Z(D7n 9'z? 

a vmnxz # l^% 1 1^ 4: % 



fcttifx^<- l 7tii *p w\°-r ^ 

- K " ^u »j &* x^ -5 - i: ^<-c 
Sa5»tv<»|&fbL^l^g57>«r 

yp ^ 'v A+izjg&^i*-?) - 1 ^ 

CALL TURBO ON 

*Mf L tzfa t (T>7 P 9'"? A(i v 

CALL TURBO OFF 

%HftLfc$)i(7)7a^7A(jv 

Z«7)Z7°P^*^A(7)t#a- N 
16 CALL TURBO ON 
ftfc'J^ALT, ^ii<7) RUN 

T-yp^^A^^rr^-ti-nti; 20 

fflj&(7)7n 9"? A L A^v v >ff 

setters; 

*END"i:^^?-frTyP^7A?r 

»7Lfc*^fcc:t5t, 'J^K 

ti v v >^f b$ n-f IzHff ? ti* 
(7)T-pS <l^<z;^:^znc•^) 



UXK2 




10 SCREEN 5: COLOR 15, 0, 0:CLS 

20 PI =3. 1416 

30 FOR 1=0 TO 360 

40 PSET(COS(I/180*PI)*50+128, SIN (I/180*P 

I) *50+100), RND(1) *14 + 2 

50 NEXT I 

60 IF INKEY$= M " GOTO 30 

70 END 


UXK3 




15 OPEN" 
, "MSX7r 


GRP:" AS #1: PRESET (0,0) : PRINT #1 


UXK4 




70 CALL 
80 PRESE 
90 A$=IN 
100 END 


TURBO OFF 

T(0, 8) .-PRINT #1, "END" 

PUTS (1) 
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iMSX^-uog 

msx^<- utffl (zte^s? n 

tz BASIC(7D^^-(i N T^TCALL 
Qk£b\ £l^olZP^7>K 
WHlZCALLtfOUTl^o Z(7) 
VN CALL*<7)*r;b U C *_* (^ > * r - 

CALL RUN 

7°P ^A^f^TaWN'-f 7 

^-KT-tWfr*-t***:#lz, il& 
(7)RUN=lv'> K<7)A^»Jtzfi6-5 

£ &T*# «&>. t tztr < 7°p ^5 

A<7)Spftrib LA x H*TT*##v.X7)fc* 
CALLRUNTUff Lfcyn ^7 A 
<7)4UZ % CALL TURBO ON^, CALL 
TURBO OFF£j?,otl&£, Syntax 
errorH^So 

CALL TURBO ON 

I * -9 l^ CALL RUNT'^t?1+/c 
»; s CALL TURBO ONT'P >/ \°-f 7 

— «— KTJHtLTi^**K $ 

blZZntiffitftoZt^ Syntax 
rrorlZ&-5> 

10 TURBO ON: GOTO 100 

1 IF A = THEN _TURBO ON 

tii^ts Syntax erroriz #3 

tints CALL TURBO OW7)#«g 
T'GOTO^GOSUBT-^K-r^if^-s 
il#<7) BASICS >* 7°U ?-<7>$IJ 
fflWBBlZ^l&fS iTx CALL TURBO 
QF?<nfirX\ Underfined line number 



BASiCTrffofc^p^5A^*0**v2/>Bae»(D»K^*fTr* 

fcfc\ CALL TURBO ON (^&S, 

S9&S Jtii^nv^-f? 



:- KHSltiJ 



:£1:wt-# 



- aMKfr *.-="=- 



5 (Z ft E O ix T (i&<7) v □ ? 

=? =• >^±co>±E^"T"f¥L < m 
CALL TURBO OFF 

7°n ?*7 at-*:: ofr'b&li'f 
> ? 7° U ? - : E- K T-f?*r$ it 

#' t^i-fcfto CALLRUNT-^t 
$ ittz 7°P ?7 A+T'Z <7)*^# 
$>& £ Syntax errorlz£& "f >^ 
7 ij ?_^_ KT*C<7)^£%J1 
L T fo**S£ ft -5 (errortztift fc 



iv£: 






RrVfcfiWfc 



BASIC0H7VH 

^-L^TCALL RUNT'Ufr 
Lfc*^ 7°P ?"7 A+ECALL 
TURBO ON*<fcUT#fc^T-(*n> 
/f-f^-^-KTtWFt^x ii 
^(7)BASIC«>?7°U?-^- 

CIRCLE 

<%1±\1 1\ 3 >/ f-T 7-^-F T* 

}!£#£'-} LTfc'jZ^mt, -f 
>?7°'J *— *- l*TS5t?3#* 



COPYCXJUi 1 , YMI 1 )-(XHH 2 . YUli 2 ) 
<,Htf-7U^-y> TO (X£H3.YJl1iS3) 
<, < u \Z—%s<—V>, imS5H^?> 

*g£ $ ntz p e-7c^- s?<7> ( x mm 1 , y &#e 1 )*t b ( x mm 
2 , y mm 2 ) (7)|eh<7) ^^ 7 * -/ # *v iKfestifca tr-jfe<- 

vc7)(Xil«3 ,Y^l3)tZ, Mil-g^^ZiS^^^ToTP 
it tl -^'tL SET PAGE3:GQfg 2 / n°7 ^ - ^ T**g^ i* tltz^— i?fi*M 



COPY 

C0PY^^•(il^^^z: ^^'T'# 

7 -i- -y ^ 11^^07) p t°— L *"T'# 
COPY^^«^^.4^\ 

DEFDBL 

^\ p >/ N°-f 7— *— F T'( Jf^ffl 
^^^^r«? Z ^ ^T'# ^^c7)T\ 
mffl^^^^m (DEFSNG) i: Is] U 

DIM 

IpJ^aSf ■Stfefe BASICT- 

^<— L o^T'teCALLTURBOONcD 
K^ CALL RUNT'^^T-r ^ 7°P ^ 
^Ac^Jf^i, 7°P^*7Ac7>-# 

fc*TU J^T<7)^^-(iDIMXc7) 
Buiz^oTfoJ;^^ 



DEFINT 

DEFSNG 

DEFDBL 

DATA 

DIM 

REM' 

Z ilW\<7)tipT?£ Dl Mc7)|fiTlS 
•9 t Redimensioned arrayc^x^ 

Sfc* il^cDBASICT'lix 10W 
T<?)ie5lJ(i DIM^T'HWL^X 
Tfcf^^ltt; ^-Lo^c7)p 
>/W7-^E-KT1i, fc<t^.1 
^@<7)ig?IJT-feDIMS:iZ«t UHWL 

INPUT 

iii^c7)BASICT*(ix 
INPUT*A,B=" ; A,B 

c7)Ji9(ZLT, ^/c^iiLbCO^ 
fS^r-^tZA73 $ it* Z t WV$ 
•&*\ ~i— L-5S"c7)P>/\°-f7 — 

-tt-5 z; i: *<X*# 4;tv ^fc-^fiit 

c7)^^?rlNPUT5:c7)^tZ#LN/'z^ 
o"(iSyntax errorlZ^?>o 



CiRCLE(Xffi«,Yffi*).¥S<,e> 



KEY 



il#(7)BASICT*l±. 7r>?-> 
a > + -S^:c7) ON/OFF^, 77 
>^va >+-c7)^^tZZc7)KEY 
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<^X^MJ 



<J£-5 c £ **T*# 4*t s b<r> > 
KEY *-#*§-, *£59IJ* 
KEY LIST 
KEY ON 
KEY OFF 

KEY (*—#§■) ON 
KEY (+—#■§•) OFF 
KEY (+—#■§■) STOP 
ON KEY GOSUB 

LOCATE 

=3>/\°<7-^E— KT*(i, XJ35 

locate xmm, Ymm 

&So 

*fcs il^(7)BASICT1i|g3/N° 

(a— v;u£^t?"5/L#v.*)0> 

=1 >/W 7-^E- K"C(S*&£T* 
# #*.* (f&^3"$ £ Syntax error 

NEXT 

ii^(7)BASICT«, NEXT<7)&(7) 

?TLfcF0R£(zM-3fcltE\ "*- 
L -?^<?)=l >; *< =>—^— KT'te 
c <7)S3»££B&T S 3 £ WVM fc 

FOR 1=1 TO 10: NEXT I 

<7)«£ -? £ % #<f NEXT^lZgQ&S 

£#<!&£#* So 

SSBF&A^UNEXTli, Syntax 
errors 4' -So 



PRINT 



BASICT'tt t.<ni:^oTl^ 
il^(7)BASICT*(i, felUlcS* 



AUTO 

BSAVE 

CINT 

CONT 

CVI 

DELETE 

EOF 

ERR 

FILES 

GET 

LFILES 

LIST 

LOC 

MAXFILES 

MKDS $ 

NAME 

ON STOP GOSUB 

PLAY 

PRINT USING 

RENUM 

SAVE 

SET ADJUST 

SET DATE 

SET SCREEN 

SET TITLE 

SPC 

TRON 



EQV 



BASE 

CALL 

CLEAR 

CSNG 

CVS 

DRAW 

ERASE 

ERROR 

FPOS 

INPUT # 

LLIST 

LOF 

MERGE 

MKI$ 

MERGE 

NEW 

OPEN 

PRINT # 

PUT KCANJI 

RESUME 

SET BEEP 

SET PASSWORD 

SET TIME 

SET VIDEO 

TAB 

TROFF 



IMP 



BLOAD 

CDBL 

CLOSE 

CVD 

DEFFN 

DSKF 

ERL 

FIELD 

FRE 

KEYLIST 

LOAD 
LPRINT USING 

MKS$ 

ON ERROR GOTO 

PRINT # USING 

RSET 



WIDTH 



—=E— KT(iTAB(CHR$(9))tZiH^ 

-tut. ::?i^##7j£LT 



SCREEN 

<7)*§££Lfc3HH£ Syntax error 



U7.K5 


1, 2, 3 


10 


PRINT 


20 


CALL " 


rURBO ON 


30 


PRINT 


1, 2, 3 


40 


END 





SCREEN 

<Sl® I E-K> 



STOP 

END£&r>£:<mklZjmL$tl 
So CONTlifcfflT*#fcl,\, 



USR 
VARPTR 

ii#<7)BASiCTii, m&ni&W 

#S£\ "*— L -3^(7)3 >/W 7 

-^E- KT'«S3St<7)^ =B 'J -T K 
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< H ■"< ♦ 




fit; ****- L -3S5fflS£!fift<fr* 

fc^— t -?:Wffl<7)t^)V < "? 

* N *5o Z.ft«blis ^— b^:©<7) 

¥lz£oT<5^£<7>T\ fFii 
<7tf£l ^ £ 1" % AttM&fflK J' L T 
fc«boTt>lAl\, 

?At T'ti *'" S fc (i *REM*<7>& 

iz*<z£(zj:y % ^fs-a-sz: 

10 ' #c+ 
10 rem #c+ 

10 PRINTA" ' #C+ 

& t'X'gnZ ■&* z. t ¥T-g %o 

m b?f<nzartffi<nWz%\l<7)iffi 

<Z£#-C££i\> ttzs WWt 
tz:3;<>h&#< -£fcT#£l* 
(7)T>iSLTliLl\ 



Z <7)^£" (J T -tz > 7" 7 — ( v ■> 

$Tx ClW)3>/<-f7^4 
2TT; C=|g(7)r B 1iz7'-b>7'7- 

=1 >/ \°< =7 — tffE* V v >|gJ^i- 
tZjffi$V>»f§£#^T $-&*££ 
<7)T*# 5 V >5"f >T-fe >7*7 

-" £ i ^ #&!&#* & fc tf>#& $<> 

*«~ b -^"CliT-fe >7* J 7— <7># 

^T# < z. £ (iT # S i ^\ * v 
>g<7)5gBSc<^<fei>Afc*-3fc'bx u 



cfcDMBK-bo 




or<•g>0■C ^ 33no^lzlill^cI:L^J;~^Jc!:L^z3A(^^fR«'Urfeo 



UXSB 



10 _TURB0 ON 
20 ' CALL 00C0H(BEEP) 
30 '#1 &HCD. &HC0, 
40 END 



&vv>|=<7)p-K (&{»)£# 
< z. t (z J; U s v v yfHrittfT 

i;^h 6tiz.<7H>7<>« 

£{$o TittgROMOS<7)00C0H#i-t!} 
(BEEP£n.S l bT H t7*.iU— ?■>) £ 

3 — ;u b s BEEP^n.1 <b f y°u y=? 

A £ (BEEP#*f? £ HfrT 3 (7) £ 

IWJ b 4«>T; t> ?>? ?" v v >g=T" 
$tz, m&m&fetf\r>x\.^ 

y^EU-COT 7 KU*£Vv>l§7° 
P ^7 A^lZfJ-9 Z. t t>T*# -So 

(fc^bSgBSl<7)^B[<7)*) T> 
>fgP- K(75*"*) U «£&££# 
<C£CJ:*J % f(7)fS(7)7FU 
2 (2A-T h) * { A5„ fcfc'bs 

bfc CilS-bfc) &T*fci^ Jft 

±3m*T%mw»>%<»x\ &f 
? = -<7)ftA5:& t'^—m^n b 
xfrhimtzz.£ 



IUK7 




10 


TURBO ON 


20 


AH=0 




30 


' LD HL, 100 


40 


'#1 &H21, 


100,0 


50 


' LD (AH) 


, HL 


60 


'#1 &H22, 


AH 


70 


PRINT AH 




80 


END 





< Z. t &X£ Z> ^#-§-C7)^^<7) 



mtz@ktttttzb<r)*Qi J ) £s t 

(7)^r#-§-C7)7°P ^7 L.(F)h%> T K 
'J*fr 8(ix ^^A%(Zl00^t 

Z.COmt^^O±f^ 7°P^"v 
A^-f±±.lf % i: # nc £'RENUMT* 
U -7->/\-?r bT fc,@100^^V 
>=7< >4>tZ#^tl^T#-§-(J U 



ftC <7Uv7tt 

7=7 7 -f y <7 (D Y ^#<7)JiPH^ 
PlilCD Y J^SIfi ~21 1 £ X b ^ 



mj£xzte^ij\ Z. 



"J 



^ 0~255ST"C75YiHi?r^-?Z: 
ttfXZZXl LZt£Z> itztzLM 

mm xwmizm^znz mm 

*#C+"i:^^:r ; 5z.i:tzj: U 

— 211^ T*(7)|EH ^fSffl b , *#C 
-'£ft%.-tZ>Z£.lZ&i) 0~255 

(7)1511 £f£fflT3^- K(z^% 



UXK8 




z\<n*Vv ■y'irfroyfUfetfti: i **» 




•g-s imitpi^ ojijic+ 


10 _TURBO ON 


CE8M&k *£%o 


20 AH=0 

30 ' CALL @100 

40 '#1 &HCD, @100 


Z. 0&K&W390&& SCREEN 


~3, PAINT^^, CIRCLE^^-T' 


50 PR J NT AH 
60 END 


(ite^t^'J, Zft"bW7^iJ- 


>=E- Ks ^r«r«-5i|#{i#C+ 


100 AH=100 


sncttK&ftft, 


110 RETURN 


y 3 h 9 (iv ^(7)^/^0(7)^— 




K-C(0 ; 0)*r<b (255,255) £ X(D 


LUK9 




#1 


10 OPEN 


"GRP:" AS 


20 SCREEN 5: COLOR 


15,0, 0:CLS 


30 PRESET (0,0) :PRI 


NT #1, "*C+ n 


40 _TURBO ON 




50 '#C+ 


■ 


60 LINE (0.0) -(255, 


255) 


70 A$ = INPUT$(1) 




80 _TURBO OFF 




90 CLS 




100 PRESET (0, 0) :PRINT #1."#C- H 


1 1 _TURBO ON 




120 '#C- 




130 LINE(0, 0)-(25E 


>, 255) 


140 A$=INPUT$(1) 




150 END 
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M 



LINENS l<7 Pv- 7 A/i $*mi- 

VDP (24) kfeiTffimx ? a -^ 
tix iiftliiWx o^uyjMI 

#<212J->Lb255£ T*<7)$l^ctt 7. 7° 
L T \ts 7 7°7 -f h fe^fr # l *<7) 

-e&nit:; 

VDP(9)=VDP(9) OR 2 

% tztfU 7°P^7A^T^(- 
VDP(9)=VDP(9) AND &HFD£t' 

-f h£f£fflLTi^7°P?"7A£ 
Hfr L /c £ # li 7 7 ^ -f h jBWc 
(4^XL^o 

/\°U-y Mi COLOR = RESTORE 
T'VRAMlzS^tl/c^\V>y hr- 

?£/\V-y M3B5fcL&fcTJ:-5 

fcifc£&ls&bfc t v7)T**>ft tfRgiS 
&l\, 7.7°7-f h^V-y h£M 
^C^^7°P^7AT1i, 0IJa.tf 
tf— A^^^®®^— v 1 £ 
f£fflU ^-y0^777<h^ 

¥#&*«, ^77^ h^\V-y h 

<7)f ^T C0^II<7) mkT\ 

SET PAGE ,0 

T**# # jA^^< — v*c7)<fr ^r^-— . 

v lZLXfrb3to<7>W£*?Tl.\ 

SET PAGE ,1 

Mil ~255<7) i:':^-S*LT 
fc p' $ li ft ft < U Z (SO n c ft( J 



*—*> 0^-yl t*# < T bs 
*— S* 2 * 3 'OfeH U*f)o 

'J 7 H0(*7?p-JMlig£f£ 

ofc+)">7WP^7Afc' if 1 ) 
{5LA\, ^p^A^TI"^ 

#», [Ti>-^fLT<no 

IN NEXPE-Kfi^ 

FOR~NEX"Dt(7)NEXTT' s *— 

/\'-7P-^i7yT^)frL4" 

BASICS S8Sc<7)g$W J - 32768 
—32767 S T*<7)|£HF*3T*ftffl"e#x 
d <7)|EH fciffi* fc*& £•* -' <— 7 

n-a<£gz § ^ijx.«; >j 7 h n(7) 

yp^A^IffU JU— 7°£ 
&lt5 £ # fc» I%0)fc{i32767+1 

(7)P >A< 7-^E- KT-lix 32767 
+ \1fi&n£tl%> t s - 32768CI& U 
(1 6iHrC7FFFH;/r8000HH& 5 ) 
to S T*fc ■? X h S ft<7)*32767 

«£ 'J * # ft £fc" C 1 JUJii-tf-f v MS 
;u— -/IzRS^ T L £ -5 i £(=$$ 

(3>/\^7-t- KW7*>> 

7c#>s BASICS «fc -5 tZ lCTRL[ + |STOT^ 
T*flff fciL**:: £ fc*C*§ &l\ 
M&U— "/t-AS £ 'J -tz -y h f 3 

«fc »J N ~ <7)NEXre<7)*— /\*~ 7 P 

7-£ffl LTitS *<7>"Ctt£ < s 

3£iBJffJ (3 ;u- 7> b ^ 1 1 tH T ) o 
*#N-"i;J;Us *-/s-7P-<7) 
fi77ttL4"lV #NPV>K?r 
WfettSeLT^V^^ttx #N-<7) 

t-FWoTl^o #N-C7)^E- 

\?oyfit>\ •%—/i—-ju—<r> 1 f-x. 

•5(7)T\ x—Jt—yn—L^toU 
t # /-c It #N+ iz L Ti^ffl f 5 J: 



u^sn 



10 FOR 156=30000 TO 32767 
20 NEXT 1% 
30 END 



LUMO 



5 ' DRIVE GAME 

10 DEFINT A-Z 

20 R=RND(-TIME) 

30 ON KEY GOSUB 490 : KEY (1) ON 

40 COLOR 15. 0, 

50 SCREEN 5:VDP(9)=VDP(9)OR2 

60 SET PAGE 1. 1 :LINE(0, 0) - (7. 7), 0, BF:CIR 

CLE (3, 3), 2, 15 

70 PAINT (3, 3), 15: SET PAGE 0,0 

80 FOR 1=0 TO 7 

90 C0L0R=(I+8, I, I. I) :NEXT I 

100 COLOR= (6, 7, 0, 0) :COLOR= (7, 7. 7. 0) 

110 '#C- 

120 Y=255:LINE(0, 0) - (255, 255) , 0, BF:X=60: 

CC= 1 : XX=X+25 : YY=204 : K=600 : S=0 

130 RESTORE 500: FOR 1=0 TO 13:READ A: SOU 

ND I.A:NEXT I 

140 F=0:IF RND(1)<. 1 THEN COPY (0, 0) - (7. 7 

). 1 TO (XX, (Y+212)AND255) 

150 K=K-1 :IF K<1 THEN K=1 

160 S=S+1 

170 SOUND 0, (K*4)AND255: SOUND 1, (K*4) ¥25 

6 

180 L=(RND(1)*80+50-X)/30 

190 X=X+L: F=F+1: COPY (0.0) -(7.7), 1 TO (XX 

. (Y+YY)AND255),0 

200 LINE(0. Y)-(X, Y) . C+8 : LINE (X+60. Y) - (25 

5. Y) , C+8 

210 C=C+CC:IF C=8 THEN CC=-1 :C=7 

220 IF C=-1 THEN CC=1 :C=0 

230 LINE(0, (Y+211)AND255)-(220, (Y+211)AN 

D255) , 

240 VDP (24) =Y 

250 Y=(Y-1) AND 255 

260 A=STICK(0) +STICK(1) 

270 FOR 1=0 TO K:NEXT I 

280 IF ( (Y+YY) AND255) >253 THEN LINE (XX, 

) -STEP (7, 7),0, BF 

290 IF A=3 THEN XX=XX+1 

300 IF A=7 THEN XX=XX-1 

310 IF A=1 THEN YY=YY-1 

320 IF A=5 THEN YY=YY+1 

330 IF POINT (XX, (Y+YY) AND255) OR POINT (X 

X+7. (Y+YY) AND255) GOTO 360 

340 IF F=30 THEN 140 

350 GOTO 190 

360 RESTORE 520: FOR 1=0 TO 13:READ A: SOU 

ND I, A:NEXT I 

370 COLOR , , 6 

380 FOR J=1 TO 1000: NEXT J 

390 IF STRIG(0) GOTO 440 

400 COLOR , . 7 

410 FOR J=1 TO 1000:NEXT J 

420 IF STRIG(0) GOTO 440 

430 GOTO 370 

440 SCREEN 1 : COLOR 15.0,0 

450 PRINT"SCORE:";S 

460 IF STRIG(0) GOTO 460 

470 IF STRIG(0)=0 GOTO 470 

480 GOTO 50 

490 VDP(9)=VDP(9)AND&HFD:END 

500 DATA 0. 15. 0, 0. 0, 0, 0, 254 

510 DATA 15. 0. 0, 0, 0, 

520 DATA 0. 10. 0. 1 1,0, 12. 

530 DATA 192, 1 6. 1 6, 16,0.30.0 
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93Lfclt£\ ^-LofT^P^ 

5 5 >$**"*£(*; fcHioi 

So 

~n(i, TURBO ON<7):tfU8g£ 
TURBO 0FF(7)t^T\ ISfcWS# 

■b tz U * M 2(7) 7°P ?7 A £H 
frLT<7*3£, IHi;A%(7)^^T" 
*k TURBO ON i: TURBO 0FFC7)tt 

JBiT-ttg&tfgt 1 jt $ nx a i >(7) 

#1 » T I ^ fc CO S fz It DEFINTT' 

(7))c7)^^^ie5IJ(i, CALL TURBO 
ON B^Z-glt^T Z fcJPT* So 

SBE5U B %<7>T f - ^^-gilUf: 

CALL TURBO ON (A%,B% ()) 
(7) J: -7 lCT5o TURBO ON <7)£ # 
(ZSW? ftT I vfijf. CALL TURBO 
OFFtfUfr? fife £ # C it £ Kitt 
tz3|#;££ft5 



LUMP I 


10 A!*=100 


20 


_TURBO ON 


30 


PRINT A% 


40 A%=7 


50 


_TURBO OFF 


60 


PRINT AX 


70 


END 



■J 7. b 12(7)7°P ^7AT*tlll 
2(Wt£OTc7)J: n lzTS 
20 TURBO ON (A%) 
HffLT^3£, 4"S(iiE^(Zt!) 
ftf S <7)#5£IS"C # £ £ JS -5 o 

< ST*fc^SM<7)^B[*fctiie5iJ 
fc*ltT\ JpL*»£MS:»* h U > 

^mt* c <7>^arci *§ i $ m l T- 
^At*. «(7)^3St<7)rtap^a*(7) 

iI£#0SLTffi3)LT<7*3c7)feu 
«i<7) BASIC<7)Mffl^M^^C7) 

mmts'r?, $6ii(ctjEmc7)9. 

99999E-64~9.99999E+62o 

=i >/"Ff =>-=£- b'vcnttiffit 

m . SHf ( —65535), iSSKilE^ 
(7)2.939E-39~1. 701 E+38S T*o 

>mizm%LTm?rztiT^ztz 

10 GOTO 10 

£ 1^-5 yn?^ A &gTl<7) BASIC 
TUff $ IJ^i^j JCTRLWSTOPl 
T*tf Wr? * $ C £ *<T # -5 *<> 
CALL RUNTUff 5 -tJ-fc*§£-tt, if 

*<— L oft^7°P 2*5 5 >?* 

izitn'it^ *>tix 77>^y 3 

>*-£W&#£fi^fc'J* M3 
C7)ct •) ^P ?*5 A*#UTfc < 

J:9iz-rs^,|£i]+-^?frz: 



UXM3 



10 _TURBO ON 

20 ON KEY GOSUB 10000 

30 KEY(1) ON 

40 ' Ar > *-7 # 

50 GOTO 40 

10000 ' 7r>^->3>+- 1A* m* 

10010 END 



t tzj: U z/p ?*5 A£4»-e-$ 
Z £ #T*# & (CALL TURBO ON, 
CALL TURBO OFFtZctU, -fu? 

xi^yp^*-7AT*(i x r^x<7) 

*CALL TURBO ON" <7>&yi<7)^T* 
77>^va >*-#jy &*£!£ 

<^— L o^T'COyP ^7A(7)| 
^(S V i/>|gZ/p ^ *7 A £T S " 

^tz^scoTs cco^PR^u— ^U 

^(Z fc Z7°P ^'^ AC7V N*^*(Z ct 'J # 

^TTSct^lzLct^o 

l3oatrDSX 

£H)S^$£tf>T#fco 

CALL TURBO ON 

CALL TURBO OFF0^t^ 
Syntax error^tti'5 

CALL TURBO ON/CALL TURBO 
OFF<7tfT{Z#<7>^lJttl^ ? 
Ztlh(D-^il,t^)l'^-7.T-— b * 
> h^ IRfc<7)&tZ#< tl7- 
tZ^So ^(7)P^>Kfc(tC7)fl : T* 

^r?-&Sd:-9(zrs 

CALL RUNT^r^-t+SyP ^7 



A + IZ CALL TURBO ON^, CALL 
TURBO OFTC Jfcl >** ? * fc> CALL 
TURBO ONT*i!)fr=LTl^•2)F B 1(Zfc 

-5 -HSCALL TURBO ON^ii-a T^T 

7— t— KT*!W£L'CU3£#<7> 
*CALL TURBO ON"^, CALL RUN 
T*^t L tz 7°P ^7 A + tZ VS CALL 
TURBO OFF*^^-5ttSi:x-7 — 
(Z^Sc^T'jiSo 

CALL TURBO ONcZXrr, 

Illegal function call* 1 

WLTl^j:i«5lJ^^?r§l^(zL 
T I » %<nX'ltt£ I ^ ? 'j^-f — S 
«ffl(l:l-)Lfc^»«:5l»(z-|sl 
-9J:olzLcfc^o 

NEXT0^r 
Syntax errortf&S 

NEXT {ZSSBrt^t^T^CV.^T 

ti^oCi ^ ? 'j£«ffc£tttt «t ^ 

(*> «t -3 ^f^l^CDiio ^^ • NE 
XT(7)ii#as) 

DIMOfjrRedimensioned 
array©xz7— 7b s t±JS 

DIM3t<7)fr(Z&-3Tttl^(t*t x 
^^•*%^<7)T'«^^^? DIM 
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Ifc-I 



^7J<7)it-j ^^DIM(7)lI#Ba) 

Subscript out of range 



fFii<7)BASICT*MU 10fiST'<7) 
lEJIJ'Jf'oDIMTllWL^: < £ t>1$ 

3 >/\°-f 7-^E- KT-ti, tfiJx. 1 

§ d t &*T§ fc ^ ^ tf^f tzIG 

DiMX(-«tuie5ij^s:m-rs(*> 

String formula too 
complex^tB-S 



UXM4 



10 A$="" 

20 B$="0123456789ABCDEF" 

30 FOR 1=0 TO 7 

40 A$=A$+CHR$ (ASC("&H"+MID$ (B$, 1*2+1, 2))) 

50 NEXT I 

60 SPRITES (0) =A$ 



<7>;t#tt, ^i§(7)BASICtZj:t^T 
XlfJ 7. h 14(7) J: •) #"7*n ?*7 



Ate, 4(WT^rJ^T<7)J:-5tZ-ft-{t?) 
40 C$=*&H* + MID$(B$,I * 2+1, 2) 
45 A$=A$+CHR$(ASC (C$)) 

=1 >/*tf ^—^E- K £ -f >? 7° 

»;*— *— KTfck is]i;^HU(7)^ 

fi7^LJ:7 (7°P^7i>^ 
iKritfc LT^a^7A?rtt^4 

l **> ? ^iiCO BASICTIi RUN^ 



fc(r"'(^:£^)tz*MJHb£ft5 

(7)liiT\ H8fb^ii:i:, 
=i w?-f 7-^e- Kt-f >t~7 

^ 9 &*SS (7° □ ^ 7 5 > ^ 

sunk). 

Mc7)^i'^-r^x. rb<^^M iz ^c -S) 
fc<7)£ LTgx\£ttjLTu£(7)T\ 



gx. £ (iit-3 ttltffflT L £ 1 

A%=200 : PRINT A% * A% 
T-«, gx.*) < !gifcIJ<7)«SSI(- 
32768—32767) £Mx\T Liltz 

PRINT 1!!%*A% 

«J:?i:, fc-?£t>iI$fcJ£<7>S^ 
J: o izwm&^m.*: £-&ZZ\t IZ 

Tj&;bft3Z;£tZ&3<7)T\ *— 
y\-7P-(*[U^T'#-g. 3fcx.T 

fcSMSXWBftUfcCDC, 

tV ^ ? K v -f 7*% £'c7)fe3S<7) 

f£ffl T* # -5 7 - ? x \) t<7)± $ £ 
if$Lt>% f-f7^F7<7>1 




K^a V/'ifrmtzfrL 
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l * 7°P ^9 A £ffo#T s z n tfX 
£SA* N l**AA,r,£C$Ufr-3(t 

ftf4*fc^£&i*7 , n?7A£#< 

A£fES£:#)<7)7^--y^ , '£;jg 
tf-fSo 

MW«S3£l:t 

S C tt, *<C U £*|fc 7°P ?'7 A 

H: K tefflm 7p ? 7 a fc 'j&gfc 

<mmg&*ti!mTzt. 7p 
y^Aoyms&jg** us< -f s 

z t *rT'# S (J£ffij£g:&lzS|g[ 
%-Atlf: t Z S T\ MlI_bT14;¥ 
»'J4B[.£ft-&£ fi) U z £ £^s<7) 
TS&£(4&;b<bfci0o 

9JDHH:V"«fcD* 

7"t4H£fc(7)tiJU3ls *¥*&« 
>KliS*<frSo 

'*££(*£«'* < 



iim>tt£*£iKitt>fth>i 



2<Dn§|i<Dl!IDIIttj8U 

£rag»<7>£W £<?)*§£■* 2 

(7) n ^(2,4,8, 16-)T'(7)SJ 'J * 

T14s S$co»iJ'm£^#iil£ 

frWttfcECDniitfiSU 



J|LT^S<7)T\ *A=BVi:t< 
4 U N *A=B * B * B * B" tWfitM- 



as3S[<7)^tt*fc, «ijus 

^oT^?. #(Zi>s 3, 5, 6 S 
7 s 9 s 10s 20s 25s 40s 50, 80s 
100s 200s 257#£*0>A x lt£t>:gffl 
7°P ^7 A IZ J: o T*03i* tl-S fc 
#>s ■&&<M3W%X.i) : m.\ 

E»7cW±©E5"J©*ft* : fc 

2 'X7ti>xt(DW5Wimn l c 

So $]*.& DIMA(9,5)T1I5£L 
Ts A (X,Y) (Zffi£ AftS £ £ ft t\ 
XX10+Y 

t u -5 it** l x g tfwmmzn 

■f Z £ C# S (1S50 (4 *> *> fc <7> 

T's 9 T'Hwl" S £ 1 0f BcfigSUtf 

lt*)o tot, Zc7)if^\ DIM A 
(15,7)^^i:S:^L^(5?^g 

SftT'#SZ£iz&So 

WDWCCALL TURBO 
ON / CALL TURBO OFF* 

CALL TURBO 0N#Hfr3*i5 
£ s ^<7)-2 £* zi >/ <-f Mfifitet) 
ftSZtC&^J, 3>s<4MZZ 



fcttfcl^H 7=7 A T*(4 ON/OFF 
£#S-< < fi&ffl L&^4 a Ct" So 

ONKEYGOSUB N ON INTERVAL 
GOSUB t£f<n%lV-kfc$tfi\.Z& 
SMiIt4s ^L<^T^^^r^f 

<nx\ Mfc%&j.;tfH4fcs^< 

1 :7U-xU7*«w 

^<-Lo^T14s ./-O-X-t'J 
— tZBASIC(7)7°P?*7A£s Vy 

> -f >RAMA<256K/\*< h ^51 2K 
/\*-T hT'fos g££LT10K/\*< 

hli^c7) 7-77°P ^7 A S TL 
*»H >yf-f ;uf S Z t (4T-# tft\ 
f^n'7^7'^ RS-232C 
ft tt^SBtfafce: cfc ->t .7 'J — x 

U T'(4^^oT < So CLEAR£T* 
BASICc7)7s h 'J >^&(7)flfe££ 

*< 4: ofe'J * p--lf'-7°p ^'7 

U3Li)T%&< £^>tz*)^ MAX- 
FILES«7)fil?:^ < «5gLT t> 7 «J 

-x'J7 7 (4^-oTl^< 

•^nT'(4s ^07)^4-^7 'j— X 
7T*„eSX < $i)i$i(7)l^l^7°P ^* 

7A4-#<fc«)tz % ^-5rn(4*> 

^E U -^rlS^T'# S^?ri|S^-rSo 

BASIC7n?t5A*/J\£<*3 

A#&t)(Z(4s Wccto^MS^r 
LTl^S fc<7)(4i7 % 7;u— T^MbT 
Ss v;b^7s^-h^>h (*: ") 
^ot 1 'ffizii:sbbti2>-7n 
^*7A{44"S^< Si:46Ss p^ 



AoTl^Ss &<Tt)7°P?*7A 



A'Klf^r S ^ ^- 7. % HflJ S (0IJ x. 
(4 SV F0R 1=0 TO 10"^r*FORI=0TO 
10*<7)J: -5 IZ# <££*)<, 

*> 4^(Zs Iffl U P > > h A<* S 
%3-T-fes VN ' "(v>^m-^ 
-f->a»i U (4 *REM" c7)(5 
1 &jt ^E U -*<8jS**JT# S (rtSB 
T'(4 REM {41/\*-f K '1*3 /W 
hT'^^nSo '(4* : [7s ^<- 
7]REM" t&gg&tl&t&'yX 

Ztlh (7)*%H^tT S £ 7°P ^* 
5 Att**fc U JLC < < ^S Z tt iz 
^S(ti:'s 7U-:r'm4^c7) 7 > 
Ja<^So 

ON INTERVAL GOSUBs ON 
SPRITE GOSUB *£ ZtoW) &&■ 
Mil7°P^7At4s *#tt7»» 
M7°P^*7A?rMifL^ltnt4l^ 
(t^^*(Z^Us ^f*c7)^ES^ 

£irt±.(z7 u -x u z &±miz 
>S*-fsc7)-es ^s-<<f^^i^ 
wen. 

P >/\°-T 7— ^E— KT14s 7 h 
■J > ^"^^(4 sT*A fcrtgTA S a 
£V-£-Hzr)£ 256 ^^W hc7)y 

^u-^r^'ft-rso sfcs fie^ijfe 

^^1-Sc7)T's 7^#^fcc75(4y^E 

«;—**»«: u >8*-r S z 4: c**. 

t^oTs 7h'J>^*^^s IE5US! 
^4^ S^ < 'J&^ft'J Steffi T 

s4-?tz-rs 
MAXFILES 

yP^A + T OPEN 3t^l^ 
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<^E^MBX^-U 



MfcHI 



MAXFILES=0 

7 *<* A * 01 i£& A B# T- « x 
MAXFILES=1A<IS:^£ftTl^S)o 

Xh'J >?£««« 

CALL RUNT"iWrf7°a^A 
^ N TURBO OFF<7)«T** Y U > 

?7Af«U 

CLEAR 

£LT*hU>718&PafcO(z 

rs (3 w<-f 7-^e- KTtt'c 

<7)^(JS^£8fcfc^0)T) o * 

i&cn-frtf? u -x g ziz&s (m 
;S$AB#Tii, 200^ M£££ 
*VtUS)o 

/V-KW»U-l'J7tt* 

SfV^^^ RS-232C, ^ 
r^titl'tft)- YU -y vCJ: oT 
SMSSftTVSii^-lis ^ftb£ 
©U*Vtz£u:j:U N **i<b*«fc 

rcTs-t^sSo 

|CTRlfr -fcff L ttfffr MSXfr 
iSUrfSZ^Zj:^ i£®2 F'7 

*§-£■ fc 1 k =7 •< y'-frnr-f *. ? i 

ISHIRte -frffLfr^bMSXfr 
ei&TSz:£lzj:th t-V*? K 

7 -r 7 g te£tjj 'j Mr c t &v # 

S **„ tu rbo RT'tJ 7* -f :* ? J^f (Z 

CLEARS 

CLEARS (let fj7 l J-xU7 7 
<7)_U$R£1£:£ L T U S 7°P :?7 A 
*n?fltz&.<ni&£s MSXT1JIS: 
£fty<7)7 U -x ij 7 £*QS Z £ tf 

— m& %-«5n s *\ u -t -y h r s 



<7) 7 U -x U 7 £5t1*T S Z t tf 
-C#S 

^-tz^^b^etv-e, basiccoat^j 
^7A<7)%g- % 7n?*7A<7)ire 

POKE &HFD9F.&HC9 
CLEAR 0,&HF37F 

-x U7^ffln; £ tft-g % 

(fcfc* U w*l**ff Ltz&r-f * 

fcTOL.TL.i-jZlfctf&So «fc 
<fr**fcfci\ t^9A(Jte;b& 
l^T^WzfS-^o 

MSX^-Uogtf) 

'"*— L -o f£(7) =i >y \°-f 7 — "E— 
Km »wftg|$3?51A\ il$ 
OBASiCi: (i *> «t -5 £ Wr> n X ^ 
S «fcUSJ£fc7a^7A£ffe£ 

-tst#tzc^ zort^gui^n 

-3 T fr < <7) fc'jZ^lZ#S7^> 7 „ 

mm.rn.mm 



mm vxm%£ 

frU -32768 (&H7FFF)~32767 (&H80 
00) £ T*<7)fSB£^E,T So'*— L 

^il(7)BASICT'fc £ ofc < |S| km 
ittZ^oTl^So VARPTRT'** 
<bnS7KU7.^b2^T hlzA 
oTl^So 

#ii(7)BASIC<7)±f^-, VARPTRT- 
^«6btlS7 Kl^^A x «bWT<7)«t 

+o X^\<n&£ 

+1 T^iJcofjiiST' KU^(7)Tfe 

+2 -X^mmbaT Vis*.<r>±&. 

A^l flU^X^U^A o T ^ S o 

^<— Lo^<7)if^ VARPTRT* 
;&s6b*lS7' KU^7b x bO)T-*— ^ 



u*M5 



10 A$= B| )^n tv' nf" 

20 A9 =VARPTR (A$) 

40 _TURB0 ON(AJC) 

50 A$="" 

60 L% = PEEK {AH) ' WW) ft' f 

70 B3o = PEEK(A?fi+1) +PEEK (A9.+2) *256 

My? 41 7T ^ 
80 A%=VARPTR (A$) 
90 POKE A9o, LJ6 
100 FOR 1=1 TO LH 
1 10 POKE AH+1, PEEK(B5»+I-1) 
120 NEXT I 
130 PRINT A$ 
140 END 



W iv) 



+ T^IJWS? 

+ 1 X$9W\-X&B<nJ& 

i 

!4i<7)BAsicTii, sc^wmn 

-7XU7H T.hU>^"^^(7) 

Loiro^v/H^-t- KT*(i, 

tbzs&u Ymn$nxL£i 

(CLEARTI W,'\J<^*-'?X01 
CALL TURBO ON ZMtTZZ. 

# > * h ' J > ?im<7>Sig L ti T 

# 4 1 ^C75/c7^\ 'J Tv H 5W J: -5 H 



• BASICS, ^-L-^^C7) 
3 >yf-f 7— =E- K*Ctt*ofc < 

lai(7)BASICT'(i, VARPTRcDT 7 

hV^f), f iiT) 1 /H h mt 

S(-£-ft4/\'-r h) 

7 )#£iB[<7)rt=§:<7>!Brfii*<7>t)<7) 
*«iEA^3&^^*) L ( T'JEs 1 T" 
t),OTW7t'7 h##f^£3t;b 
To :»7t'7 h<7)(S[^* < 32(& 
H40)T' 1 , 1 T*1(X7)-64^ 63 (& 
H7F) T"1 0(7)62^^-S^1"o 



itofrbG'rfijK '\'-y? MOjIIBc 
(1 6it^b? tlfc 1 0M^) T'^l? 
nTl^S Oj 'J, Zc7)3/\"-f h 
^16JtitT'&H12, &H34, &H56 

<7)J(I^zM^T•^.^fc^:rs^:^ ioii 

^T* vv 0.123456"/) < ^:?tlTl^S 

z^tz^So z:<7MR»iz, ?o# 

<nmL*wt:m < m&izim& 

ffitfX-oXi^Tbmimis t<n 

mmmtfrw<tmt vv o * t ^s c 

^<— L r>^(D n >/ \°-T 7— "E— 
KT'li, VARPTR t)%>fT Y\s* 
frh \/*4 Ymm^K 5fe<732/\* 
■f h *MRISSB t & S (-£ff 3 / <-f 

Mo 

^^§15(7)^^^128 (&H80)T 1 , 
255(&HFF)T'2(7)127^ 1T'2 

-K^^J16fc*-y hwienK-e, 
VARPTR*^TT FU^(7) 2 /\*< 
hg^bTfe _hfe<7)JlIHA^T 
USo «Lbfe(7)1 t'-y h(i, ^iif 
Wrt^<7)fB[fil<7)^§-=g:^t)r ( 
TIE, 1 T'A ) o Tfe1 5 1* 7K'0 
~32767W^il^R^1-^\ Zti 
^r n ^TS^ vv n ^65536+0.5" 
A^^gCW^TdSc^^So OS 'J, 
. 5HLL 1 *;^(7)i[{I ^r 3t5LT # 
SZ^lZ^So 

— ^^(z«)^^r<$l^A^ v 
> >gT-(7)jnif *< l ^r t ^'- ' * 

&-}TUS 
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^-u-omyyyjwf-LM] 






*7°7< r-32ft£7,/HZ-f£^ 
£-f#(Z turbo RT'ftlttU^ 

$£ % turbo Rtz^— Ln^fc— (? 

£f£x.t£ ZtifittMl^ilSr-f 

-K#tfcfa£u-5z:£fc* 

fiTA^Il^tl^^x 7V— -V 
-<7)?¥3^ N ifcfcRiSi10E % jgfc^jji 
Ml8Sg£7 r-^ElzflJffllLTl^ 

(7)fc* £ < tz, »3<ii<7);^i]£>* 

«&5£::*>T*li* SIN, COS, SQR 



HfiHJCALL* RUNlZj: oTfiftt 
%-*-VJU+-T-±Tfc&tZlft^ 

u ^^<-^+— xii?riEo ^e 

o v ®rlZ$£^TT$JLTW>W£ 
i.*\, i^%£^M<7)$(Z^ 

fcsii^LT y- a * -/ \- tz 

fc*<7)T\ ^n^TIZfSJECj^^ij 

-T— a*— /H:'j:5^ *^ 
- * +-T'S^-Afr*7 ? - h 

W r £ 7°n ^7 A £ Wt -5 z £ 



'J*MB:£La.~Tv,-A.C7-& 



10 DEFINT A-Z:DEFSNG F 

20 DIM T (2) , TX (2) . TY (2) , E (10) , EX (9) , EY (9 

) . EC (9) 

30 DIM F(17),FX(17), FY(17),FI (17),FJ(17) 

40 ON KEY GOSUB 1150:KEY(1) ON 

50 SCREEN 5. 2: SET PAGE 0, 0:CLS 

60 RESTORE 

70 FOR 1=0 TO 5 

80 A$= M " 

90 FOR J=0 TO 31 

100 READ B$:A=VALC&h M +B$) :A$=A$+CHR$ (A) 

:NEXT J 

110 SPRITES (I)=A$ 

120 NEXT I 

130 TF=0 

140 FOR 1=0 TO 2:T(I)=0:NEXT I 

150 FOR 1=0 TO 9:E(I)=0:NEXT I 

160 FOR 1=0 TO 17:F(I)=0:NEXT I 

1 70 X= 1 20 : Y= 1 92 : SC=0 : LC= 1 00 : EM=20 : EF=EM : 

ES=4:ET=30 

180 FOR 1=1 TO 200 

190 PSET(RND(1)*256, RND(1)*212). RND(1)*1 

4+2 

200 NEXT I 

210 PUT SPRITE 0, (X, Y) , 15,0 



Z <7)[FT]*— (7)9- x v ? (D%,(D 
ON KEY G0SUB£*H2-(*t>-3 t&. 



W£* t- KlZ-T-5 Z: £ tf-Zt 5 




l-K'yhfttfrhLW^, »£Jfc¥T3.,, ZtlWis?.— 7-4 >?V-Jxti. 




220 A=STICK(0)+STICK(1) 

230 IF A=0 GOTO 300 

240 YY= (A<3 OR A=8) - (A>3 AND A<7) 

250 XX=(A>5)-(A>1 AND A<5) 

260 X=X+XX*4:Y=Y+YY*4 

270 IF X<0 THEN X=0 ELSE IF X>240 THEN X 

= 240 

280 IF Y<96 THEN Y=96 ELSE IF Y>196 THEN 

Y=196 
290 PUT SPRITE 0, (X, Y) , 15.0 
300 A=STRIG(0)+STRIG(1) 
310 IF A=0 GOTO 370 
320 IF TF THEN TF=TF-1 :GOTO 380 
330 FOR 1=0 TO 2: IF T(I) THEN NEXT I: GOT 
380 
340 TF=10 

350 TX(I)=X:TY(I)=Y:T(I)=1 
360 GOTO 380 
370 TF=0 

380 FOR 1=0 TO 2 
390 IF T(I)=0 GOTO 430 
400 TY(I)=TY(I)-16 

410 PUT SPRITE 1 + 1, (TX(I).TY(I)). 11, 1 
420 IF TY(I)<=-16 THEN T(I)=0 
430 NEXT I 
440 EF=EF-1:IF EF>0 GOTO 490 
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450 EF=EM 

460 FOR 1=0 TO 9: IF E(I) THEN NEXT I: GOT 

490 

470 EX (I) =RND (1) *240:EY (I) =-1 5:E (I) =1 

480 EC(9)=ET 

490 FOR 1=0 TO 9 

500 IF E (I) =0 GOTO 620 

510 IF E (I) =1 GOTO 570 

520 EC(I)=EC(I)-1:IF EC (I) GOTO 550 

530 EC(I)=2:E(I)=E(I)+1 

540 IF E(I) =4 THEN PUT SPRITE 4+1, (0,213 

) :E(I)=0:GOTO 620 

550 PUT SPRITE 4+1. (EX (I) . EY (I) ) , 8. 7-E (I 

) 

560 GOTO 620 

570 EY(I)=EY(I)+ES 

580 PUT SPRITE 4+1, (EX (I) . EY (I) ) , 7, 2 

590 EC(I)=EC(I)-1 :IF EC(I)>0 GOTO 620 

600 EC(I)=ET:GOSUB 1080 

610 IF EY(I)>212 THEN E (I) =0 

620 NEXT I 

630 FOR 1=0 TO 17 

640 IF F (I) =0 GOTO 690 

650 FX(I)=FX(I)+FI (I) 

660 FY(I)=FY(I)+FJ(I) 

670 IF FX(I)<-15 OR FX(I)>255 OR FY (I) <- 

15 OR FY (I) >21 1 THEN F(I)=0:PUT SPRITE I 

+ 14, (0,213) 

680 PUT SPRITE 1 + 14, (FX (I) , FY (I) ) , 1 1. 3 

690 NEXT I 

700 FOR J=0 TO 9 

710 IF E(J)<>1 GOTO 830 

720 A=X-EX(J) :IF A<-15 OR A>15 GOTO 750 

730 A=Y-EY(J) :IF A<-15 OR A>15 GOTO 750 

740 GOTO 980 

750 FOR 1=0 TO 2 

760 IF T (I) =0 GOTO 820 

770 A=TX(I)-EX(J) :IF A<-7 OR A>7 GOTO 82 



780 A=TY(I)-EY(J) :IF A<-15 OR A>15 GOTO 

820 

790 RESTORE 1420: FOR K=0 TO 13:READ A: SO 

UND K, A: NEXT K 

800 T (I) =0:E (J) =2:EC (J) =2:SC=SC+1 

810 PUT SPRITE 1 + 1, (0, 213) 

820 NEXT I 

830 NEXT J 

840 FOR J=0 TO 17 

850 IF F(J)<>1 GOTO 890 

860 A=X-FX(J) :IF A<-7 OR A>7 GOTO 890 

870 A=Y-FY(J) :IF A<-7 OR A>7 GOTO 890 

880 GOTO 980 

890 NEXT J 

900 LC=LC-1:IF LC>0 GOTO 940 

910 LC=100:EM=EM-1 :IF EM>4 GOTO 940 



920 

930 

940 

950 

960 

970 

980 

UND 

990 

1000 

1010 

2), 8 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

ETURN 

1090 

1100 

1 1 10 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 



EM=5:ET=ET-1 : IF ET>14 GOTO 940 

ET=15:ES=ES+1 :IF ES>16 THEN ES=16 

TIME=0 

IF TIME<3 GOTO 950 

TIME=0 

GOTO 220 

RESTORE 1400: FOR 1=0 TO 13: READ A: SO 

I, A: NEXT I 

PUT SPRITE 0, (X, Y),8, 5 

FOR 1=1 TO 1000 

LINE (X+8, Y+8) - (RND (1) *256, RND (1) *21 



NEXT I 

IF STRIG(0)+STRIG 

SCREEN 1 :CLS 

PRINT"SCORE:":SC 

IF STRIG(0)+STRIG 

IF STRIG(0)+STRIG 

FOR J=0 TO 17: IF 



1)=0 GOTO 1030 



1)=0 GOTO 1060 
1) GOTO 50 
F(J) THEN NEXT J:R 



FX(J)=EX(I) :FY(J)=EY(I) 
N=ABS (EX ( I ) -X) : M=ABS (EY ( I ) - Y) 
F=SQR (N*N+M*M) /4 

FI (J) = (X-EX (I) ) /F: FJ (J) = (Y-EY (I) ) /F 
F(J)=1 
RETURN 

SCREEN 0:END 

DATA 02, 02, 02, 02, 06. 06, 1 7. 5E 
DATA 5C, 7D. 7F. 7F, 7D, 63, 02, 00 
DATA 40. 40. 40. 40, 60. 60. E8. 7A 
DATA 3A. BE, FE, FE, BE. C6, 40, 00 
DATA 01, 02, 01, 02, 01, 02. 01. 01 
DATA 01.01.01.01.01.00,00.00 
DATA 80. 40. 80, 40, 80. 40. 80. 80 
DATA 80. 80, 80, 80, 80, 00, 00, 00 
DATA 8 1 , 73, 6 1 . 5E, 33, 33, 1 E, 09 
DATA 6C, 73, D7, 9B, CC. C6. C0, 60 
DATA 81, CE, 86. 7A. CC, CC, 78, 90 
DATA 36, CE. EB, D9, 33, 63, 03, 06 
DATA 00. 00, 00, 00, 00, 00, 01, 03 
DATA 03, 01, 00, 00, 00, 00, 00, 00 
DATA 00, 00, 00, 00. 00, 00, 80, C0 
DATA C0, 80, 00, 00, 00, 00, 00, 00 
DATA 00, 00, 00, 01. 07, 0F, 0F, IF 
DATA 1 F, 0F, 0F. 07, 1 . 00, 00, 00 
DATA 00, 00, 00, 80, E0, F0, F0, F8 
DATA F8, F0, F0, E0, 80, 00, 00. 00 
DATA 03. 0F. 1 F. 3F. 7F. 7F. FF. FF 
DATA FF, FF. 7F, 7F, 3F, 1 F. 0F, 03 
DATA C0, F0. F8. FC. FE, FE, FF, FF 
DATA FF, FF, FE, FE, FC, F8, F0, C0 
DATA 0. 10.0. 11,0, 12. 
DATA 1 92, 1 6. 1 6, 1 6. 0. 30. 
DATA 0.01.0, 2,0,3.0 
DATA 192. 16. 16. 16,0.-10. 1 
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■t^>^l^ , -A<!:S■^rfc*3to^6 ^ ■rlSiS-A;2/5a.U-S/^>ji4^ , - 



t) < Z<?)7°n-7 : 7L.tz 

L £ ofe £ l>-? > tz f**tit*iim 



Tt3o 

4x73£StfcffiH&LT^<£, ^m 
^H'frya-J^L J; (ft A, 

(AC o *>*>)„ 

C(7)7°P y-*7 A(i : §Tl(7)BASIC 

TftfcS *•* c t h T'# $ it £\ 

T^T^L^=tte ^-L-5fT- 
* CALL RUN *T^T$-B-«t 7o 



'JXH7: ^UlJ-A.^SaU-S^ 



VX(31), VY(31) 



10 DEFINT A-Z 

20 DIM X(31), Y(31 

30 SOUND 6, 31 

40 SOUND 7, 7 

50 SOUND 8, 1 6 

60 SOUND 1 2, 1 

70 SCREEN 5: COLOR 1 5, 0, 

80 CLS 

90 SPRITES (0) =CHR$ (192) +CHR$ (192) 

100 LINE (10, 10) -(240, 14), 14, BF 

110 L INE (1 0, 1 96) - (240, 200) , 1 4, BF 

1 20 L INE (1 0, 40) - (200, 44) , 1 4, BF 

130 L INE (10, 160)- (200, 164), 14, BF 

140 LINE (10, 10) -(14. 200), 1 5, BF 

1 50 L INE (236, 1 0) - (240, 200) , 1 5. BF 

160 X=150:I=RND(-TIME) 

170 LINE(X, 45)-(X+4, 159). 8, BF 

180 FOR 1=0 TO 31 

190 X(I)=RND(1)*220+15 

200 Y(I)=RND(1)*180+15 

210 IF POINT (X (I). Y (I)) THEN 190 

220 VX(I)=RND(1)*2+1 :IF RND(1)<. 5 THEN V 

X(I)=-VX(I) 

230 VY(I)=RND(1)*2+1 :IF RND(1)<. 5 THEN V 

Y(I)=-VY(I) 

240 PUT SPRITE I. (X(I). Y(I)). 15. 

250 NEXT I 




260 FOR 1=0 TO 31 

270 X(I)=X(I)+VX(I) 

280 Y(I)=Y(I)+VY(I) 

290 P=POINT(X(I). Y(I)) 

300 IF P=0 THEN 400 

310 SOUND 13, 0: IF P<>8 THEN 370 

320 IF VX(I)>0 THEN LINE (X. 45) - (X. 1 59) , 

:X=X+1 :GOTO 340 

330 LINE(X+4. 45) - (X+4. 159).0:X=X-1 

340 IF VX(I)<0 THEN LINE (X. 45) - (X. 1 59) . 8 

:GOTO 360 

350 LINE (X+4. 45) - (X+4. 1 59) . 8 

360 VX(I)=-VX(I) :X(I)=X(I)+VX(I) .-GOTO 27 



370 IF P=14 THEN 390 

380 VX(I)=-VX(I) :X(I)=X(I)+VX(I) :GOTO 27 

'tate 

390 VY(I)=-VY(I) :Y(I)=Y(I)+VY(I) :GOTO 27 

'yoko 

400 PUT SPRITE I, (X (I) , Y (I) ) , 1 5. 

410 NEXT I 

420 A$=INKEY$ 

430 IF A$= MM THEN 260 

440 IF X>180 THEN 460 

450 IF A$=CHR$ (28) THEN LINE (X, 45) - (X. 15 

9) . 0: LINE (X+5. 45) - (X+5. 159) . 8:X=X+1 

460 IF A$=CHR$ (29) THEN LINE (X+4. 45) - (X+ 

4. 159).0:X=X-1 : LINE (X, 45) - (X, 159), 8 

470 IF A$<>CHR$ (32) THEN 260 
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£ i \ -5 f-Atzo tz-mz t / \'7 



;uy— ACD+T-flf— CALL TURBO 
ON/CALL TURBO OFF&lkffl LT 



—J >C-^(z |CTRLl + ^TOr^ T-.Liifen 







UxhlB: 3"T^<rtl#l5--A/f-k 



10 SCREEN 5,0 

20 DEFINT S 

30 OPEN"GRP:"AS #1 

40 A=RND(-TIME) 

50 A$="BD66DBDBDBDB66BD":B$="" 

60 FOR 1=0 TO 7 

70 A=VAL ("&H"+MID$ (AS, 1*2+1, 2) ) 

80 B$=B$+CHR$ (A) 

90 NEXT I 

100 SPRITES (0)=B$ 

110 FOR 1=8 TO 15 

120 READ R, G, B:COLOR=(I, R, G, B) 

130 NEXT I 

140 COLOR= (7, 7, 0, 0) 

150 SC=0 

160 _TURBO ON(SC) 

170 CLS 

180 GOSUB 700 

190 X=124:Y=0:XX=0:YY=0:SC=0 

200 GOSUB 680 

210 A=STICK(0)+STICK(1) 

220 IF A=3 THEN XX=XX+. 2: GOTO 240 

230 IF A=7 THEN XX=XX-. 2 

240 XX=SGN (XX) * (ABS (XX) -. 1) 

250 IF STRIG(0)+STRIG(1) THEN YY=YY-. 2 

260 YY=YY+. 1 

270 X=X+XX:Y=Y+YY 

280 IF X<0 THEN X=0:XX=-XX:GOTO 300 

290 IF X>255 THEN X=255:XX=-XX 

300 IF Y<0 THEN Y=0: YY=-YY:GOTO 320 

310 IF Y>211 THEN Y=211 :YY=-YY 

320 PUT SPRITE 0, (X, Y) , 15.0 

330 IF TIME=0 GOTO 330 

340 TIME=0 

350 IF X>EX THEN FX=FX+. 1 ELSE FX=FX-. 1 

360 IF Y>EY THEN FY=FY+. 1 ELSE FY=FY-. 1 



370 EX=EX+FX:EY=EY+FY 

380 IF EX<0 THEN EX=0:FX=-FX:GOTO 400 

390 IF EX>255 THEN EX=255: FX=-FX 

400 IF EY<0 THEN EY=0:FY=-FY:GOTO 420 

410 IF EY>211 THEN EY=21 1 : FY=-FY 

420 PUT SPRITE 1. (EX, EY) , 7,0 

430 IF POINT (EX, EY) =0 GOTO 550 

440 RESTORE 860: FOR 1=0 TO 13: READ A: SOU 

ND I, A: NEXT I 

450 FOR 1=1 TO 16 

460 CIRCLE (EX, EY) , I, 7 

470 FOR J=1 TO 500: NEXT J 

480 NEXT I 

490 FOR 1=1 TO 16 

500 CIRCLE (EX. EY) , I, 

510 FOR J=1 TO 500: NEXT J 

520 NEXT I 

530 SC=SC+1 

540 GOSUB 680 

550 IF POINT (X, Y) GOTO 580 

560 A=ABS(X-EX) :IF A>7 GOTO 210 

570 A=ABS(Y-EY) :IF A>7 GOTO 210 

580 RESTORE 860: FOR 1=0 TO 13:READ A: SOU 

ND I, A: NEXT I 

590 FOR 1=1 TO 32 

600 CIRCLE (X, Y), 1,7 

610 FOR J=1 TO 500: NEXT J 

620 NEXT I 

630 FOR 1=1 TO 32 

640 CIRCLE (X, Y), 1.0 

650 FOR J=1 TO 500: NEXT J 

660 NEXT I 

670 GOTO 780 

680 EX=INT(RND(1)*2)*255:EY=128:FX=0:FY= 



690 RETURN 

700 FOR 1=1 TO 20 

710 XRND (1) *196+32:Y=RND(1) *64+128 

720 R=RND(1)*50+5 

730 FOR J=1 TO R 

740 LINE(RND(1)*256, 21 1) - (X. Y) , RND(1)*8+ 

8 

750 NEXT J 

760 NEXT I 

770 RETURN 

780 _TURBO OFF 

790 PRESET (8,0) :PRINT#1 , "SCORE: " :SC 

800 PRESET (92, 128) :PRINT#1, "GAME OVER 

810 IF STRIG(0)+STRIG(1) GOTO 810 

820 IF STRIG(0)+STRIG(1)=0 GOTO 820 

830 GOTO 160 

840 DATA 0, 0. 7, 0, 2, 7, 0, 4. 7, 0. 7. 7 

850 DATA 2, 7, 7, 4, 7, 7, 6, 7, 7, 7, 7, 7 

860 DATA 0, 1 0, 0, 1 1 , 0, 1 2, 

870 DATA 1 92, 1 6, 1 6, 1 6, 0, 30, 
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*-uom#yj)Wf-km3 



rf;v7 1 \z y -v- k ftawrfc J: 

-? toKjtf*— A B 2 7V-i7-ffl D 

7V— \»— 1 1^1% TV— 

-V- 2 *rfi l n3E £H&T'gi;b $ ft 

T U £> *^*(CAftft«*-/l/jji| 

7o 4 *-;U"C-(7)i!$m£8H „ 

* f 7V — V— <7)5<7) * ft IJ £ v 
^ft £>£*!> •& fc*!><7) * - V ;ua<0 
&<7)T\ ?-T $>?'<£ <*'<— * 

+-^wlt, Stewart*:^ 

:S"f$>?'J:<.iJL#)& T££*T 



W&LWyzthf-MZ. 3JI/7<!:k!:u1»-K*^i*£t*fc<fc5£ r U'J 

-;u£Aft*£* 8Hfc"7V— V 
-liA* S T'lt&llo 

Z(T)7°n ^7A(J, lfji<7) BASIC 

T gXf-U (Z fc fc fc I \, "CALL 

turbo R-Cti, tmtkfSltZn 

^fcu-rrsfca&tz^x-r h# 

AftT&3#\ MSX2/2+T'^^t 

-rsfc^izijc^x-r h^-^-r 

£ *> «t -5 £*<£ l>a fcf— Ktz#S 

c-Kh %-^rc(*x 4(Wt<7)*tb= 

200" £ *TB=0" (Zf ft tf «t L V 




t77i:A5t*-^^f- KA^^aOTT-^HA^ffo :£r4*-;K7)*gttS£!SH l 



y^sis: OHyt 7 — K^f— <U 



10 DIM X(1) . Y (1) . K(1).S(1.3) 
20 SOUND 0,200: SOUND 1,0: SOUND 7, 62:S0UN 
D 8. 1 6 : SOUND 1 2, 20 
30 SCREEN 5: COLOR 1 5. 0, 
40 TB=200 'TB=0 if not turboR 
50 COLOR=(12, 7, 7, 7) :C0L0R= (13, 7. 7.7) :COL 
0R=(I4, 7, 7. 7) 

60 C0L0R= (8, 2, 6, 2) : C0LOR= (9, 1 , 5, 1 ) : COLOR 
= (10. 0.4.0) 

70 RESTORE 90:X%=0: Y*=202: IX=80: GOSUB 79 


80 FOR T=0 TO 4: READ IX: GOSUB 800: NEXT T 
90 DATA 108. 97. 121, 101, 114 
100 SPRITES (0) =CHR$ (192) +CHR$ (192) 
110 GOSUB 820:GOSUB 210:S (0, 0) =-K (0) :S (1 
.0)=-K(1) 

120 GOSUB 1000:GOSUB 210:S(0, 1) =-K (0) :S( 
1. 1) =-K (1) 

130 GOSUB 1270:GOSUB 21 0:S (0. 2) =-K (0) :S ( 
1.2)=-K(1) 

140 GOSUB 1500: GOSUB 210:S (0. 3) =-K (0) : S ( 
I, 3)=-K(1) 
150 'print score 
160 SCREEN 0:X=0:Y=0 

170 FOR 1=0 TO 3:PRINT S (0. I).S(1, I) :X=X 
+S(0. I) :Y=Y+S(1. I) :NEXT I 
180 PRINT:PRINT "Total ": PRINT "Player 1= 
":X;" Player 2=";Y" 
190 IF LEN(INKEYS) THEN 190 
200 END 

210 K(0)=0:K(1)=0:P=0 

220 PUT SPRITE P*2. (X (P) . Y (P) -1) . P*9+6. 
230 * input direction 
240 IX=P+49:XX=48:YX=202:GOSUB 790 
250 I=ATN(1)»8 
260 DX=COS(I)*10+X(P) :DY=SIN(I)*10+Y(P) 



270 PUT SPRITE 1. (DX. DY-1) . 1 5. 

280 1=1-. 1: FOR T=0 TO TB:NEXT T 

290 IF STRIG(0)+STRIG(1) THEN 310 

300 IF I>0 THEN 260 ELSE 250 

310 XV=C0S(I) :YV=SIN(I) 

320. FOR 1=0 TO 3999+TB*30:NEXT I 

330 ' input strength 

340 XX=0:F=1 :C=8 

350 FOR T=0 TO TB/3:NEXT T 

360 LINE (XX+56, 202)- (XX+56. 210). C 

370 IF STRIG(0)+STRIG(1) THEN 420 

380 XX=XX+F:IF XX=200 THEN C=0:F=-1 

390 IF XX=0 THEN 340 

400 GOTO 350 

410 'shot 

420 XV=XV*XX/200 : YV=YV*XX/200 : K (P) =K (P) + 

1 

430 SOUND 1 3, 

440 C=POINT (X (P) +XV. Y (P) +YV) 

450 IF Oil THEN 500 

460 IF XV<0 THEN T=P0INT(X(P) -1. Y (P) ) : IF 

T>1I THEN C=T:G0T0 500 ELSE 480 
470 T=POINT(X(P)+1. Y(P)) :IF T>11 THEN C= 
T:GOTO 500 
480 IF, YV<0 THEN T=P0INT (X (P) , Y (P) -1) : IF 

T>11 THEN C=T:G0T0 500 ELSE 500 
490 T=POINT(X(P), Y(P)+1) :IF T>11 THEN C= 
T 

500 PUT SPRITE P*2. (X (P) +XV. Y (P) +YV-1) 
510 IF C<9 THEN 600 

520 ON C-8 GOTO 530. 540. 550. 560, 570. 580. 
590 

530 XV=XV*. 99:YV=YV*. 99: GOTO 600 
540 XV=XV*. 98:YV=YV*. 98: GOTO 600 
550 XV=XV*. 9:YV=YV*. 9: GOTO 600 
560 SWAP XV, YV: GOTO 600 
570 SWAP XV. YV:XV=-XV:YV=-YV:GOTO 600 
580 YV=-YV:GOTO 600 
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590 XV=-XV 

600 XV=XV*. 995:YV=YV*. 995 

610 X (P) =X (P) +XV : Y (P) =Y (P) +YV 

620 IF ABS (XV) +ABS (YV) >. 01 THEN 440 

630 IF POINT (X(P).Y(P)) =11 THEN K (P) =-K ( 

P) :GOSUB 730 

640 FOR 1=0 TO 3999+TB*30 :NEXT I 

650 A$=INKEY$:IF A$="e" THEN END 

660 IF K(0)<0 AND K(1)<0 THEN 700 

670 IF K(0)>=0 AND K(1)>=0 THEN P=1-P:GO 

TO 220 

680 IF K(0)<0 THEN P=1 ELSE P=0 

690 GOTO 220 

700 FOR 1=0 TO 3999+TB*30:NEXT I 

710 RETURN 

720 'cup in 

730 T=1000+TB*10 

740 SOUND 13, 

750 FOR 1=0 TO T:NEXT I 

760 T=T/2:IF T>100 THEN 740 

770 PUT SPRITE P*2, (0, 217) 

780 RETURN 

790 '#1 &H2A. XX, &H22, &HB7. &HFC. &H2A, Y*. & 

H22, &HB9. &HFC 

800 '#1 &H3A, IH. &HCD. 8.H8D, &H00 

810 RETURN 

820 '1st hole 

830 LINE (0, 0) - (250, 200) , 8, BF 

840 PSET(30, 150), 15:RESTORE 890 

850 FOR 1=0 TO 14 

860 READ X, Y. C 

870 LINE-(X, Y).C 

880 NEXT I 

890 DATA 30, 50. 1 5. 50, 30, 1 3, 1 20, 30, 1 4 

900 DATA 140. 10. 13, 160,30, 12, 140,50. 13 

910 DATA 140. 110, 15. 190, 110. 14, 190. 20, 15 

920 DATA 240. 20, 14, 240. 60. 15, 220, 60. 14 

930 DATA 220. 130, 15. 200, 150. 13. 30. 150. 14 

940 LINE (70. 70) -(100. 149), 9. BF 

950 LINE (80. 80) - (90. 149) . 10. BF 

960 CIRCLE (220. 40). 2. 11 

970 PAINT (220. 40). 11. 11 

980 X(0)=50:X(1)=50:Y(0)=140:Y(1)=140 

990 RETURN 

1000 "2nd hole 

1010 LINE(0. 0)-(250, 200). 8, BF 

1020 CIRCLE (170. 70) . 40. 9: CIRCLE (90, 70) . 4 

0,9 

1030 LINE (210. 70) -(210. 100) . 9: LINE- (1 30. 

1 80) . 9 

1040 LINE- (50. 100). 9: LINE- (50. 70) . 9 

1050 PAINT (170. 70). 9. 9 : PAINT (90, 70), 9. 9: 

PAINT (130. 130). 9. 9 

1060 CIRCLEO70, 70) . 20, 10:CIRCLE (90, 70). 

20, 10 

1070 LINE (190. 70) - (190. 90) , 1 0: LINE- (1 30. 

150). 10 

1080 LINE- (70, 90). 1 0: LINE- (70, 70) , 10 

1090 LINE (1 10. 70) - (1 10. 80) . 1 0: LINE- (1 30. 

100). 10 

1100 LINE- (150. 80). 10: LINE- (1 50. 70). 10 

1110 PAINT (170. 70). 10. 10:PAINT(90. 70), 10 

. 1.0: PAINT (130, 130), 10. 10 

1120 CIRCLE (40, 20). 10. 9: CIRCLE (20, 20), 10 

.9 

1130 LINE (50, 20) -(50, 30) . 9 : LINE- (30, 50), 

9 

1 140 LINE- (10, 30) , 9: LINE- (10. 20) . 9 

1150 PAINT (40. 20), 9, 9 : PAINT (20, 20) , 9, 9:P 

AINT(30. 40), 9, 9 

1 1 60 CI RCLE (30. 30) . 2. 1 1 : PAINT (30. 30) . 1 I . 

11 

1170 RESTORE 1 240: PSET (1 60. 40) . 13 



1 180 FOR 1=0 TO 9 

1 1 90 READ X. Y. C 

1200 LINE-(X, Y),C 

1210 NEXT I 

1220 X(0)=130:X(1)=130:Y(0)=50:Y(1)=50 

1230 RETURN 

1 240 DATA 1 30, 70. 1 3. 60. 0. 1 2. 0. 0. 1 4 

1 250 DATA 0. 1 50. 1 5. 50. 200. 1 2. 200. 200, 1 4 

1260 DATA 250. 150, 13, 250, 50, 15, 200. 0. 12. 

60.0. 14 

1270 '3rd hole 

1 280 LI NE (0. 0) - (250, 200) , 8, BF 

1290 LINE (70. 140)- (100. 200). 9, BF 

1300 LINE (120. 150) -(180, 180). 10, BF 

1310 LINE (90. 70) -(150. 110). 10. BF 

1320 LINE (160. 30) - (190. 30) , 9: LINE- (190, 9 

0),9 

1330 LINE- (160. 60), 9: LINE- (1 60. 30) . 9 

1340 PAINT (170, 40), 9. 9 

1350 LINE (120. 70) -(120. 110). 15: LINE (90, 9 

0)- (150, 90). 14 

1360 LINE (150. 150) -(150. 180). 15:LINE(70. 

140) -(70. 200). 15 

1 370 LINE (0. 200) - (200. 200) . 1 4 

1380 RESTORE 1460 : PSET (1 60. 30) . 15 

1390 FOR 1=0 TO 15 

1 400 READ X. Y. C 

1410 LINE-(X. Y).C 

1420 NEXT I 

1430 CIRCLE (230, 20) . 2. 1 1 : PAINT (230, 20) . 1 

1. 11 

1440 X(0)=55:X(1)=55:Y(0)=190:Y(1)=190 

1450 RETURN 

1 460 DATA 1 60, 60, 1 5. 1 20, 20, 1 2, 20. 1 20. 1 3. 

20. 1 40. 15 

1 470 DATA 40, 1 40, 1 4. 40, 200. 1 5. 0. 200, 1 4, 

.0, 15 

1 480 DATA 250, 0. 1 4. 250. 200. 1 5. 200. 200, 1 4 

, 200, 140, 15 

1490 DATA 220. 140. 14.220. 120, 15. 190,90, 1 

2. 190,30, 15 
1500 '4th hole 

1510 LINE(0. 0)-(250. 200) , 8. BF 

1 520 CI RCLE (60, 80) , 40. 9 : PAINT (60. 80) . 9. 9 

1530 LINE (60. 90) - (220. 180) . 9. BF: LINE (210 

. 60) - (220, 90) . 9. BF 

1540 CIRCLE (50. 70). 5. 1 0: PAINT (50. 70) . 10. 

10 

1 550 CI RCLE (90. 1 1 0) . 1 0. 1 : PAINT (90, 110). 

10. 10 

1560 LINE(80, 80) - (100. 110), 1 0. BF: LINE (12 

0,90) -(180, 140), 10. BF 

1570 RESTORE 1 650: PSET (220. 180) . 14 

1580 FOR 1=0 TO 23 

1 590 READ X. Y. C 

1600 LINE-(X. Y).C 

1610 NEXT I 

1620 CIRCLE (20, 80). 2. 1 1 -.PAINT (20. 80) . 11, 

11 

1630 X(0)=20:X(1)=20:Y(0)=190:Y(1)=190 

1640 RETURN 

1650 DATA 190. 180. 14. 190. 160. 15. 180, 160. 

14. 180. 180. 15 

1660 DATA 150. 180. 14. 150. 160. 15. 130, 160, 

14, 130, 180. 15 

1670 DATA 1*00. 180. 14. 100. 160, 15.90. 160. 1 

4.90. 180. 15 

1680 DATA 0. 180. 14,0.0. 15. 100.0. 14. 100.3 

0, 15 

1 690 DATA 1 20, 50. 1 2. 1 90. 50. 1 4. 2 1 0. 30. 1 3. 

210. 0. 15 

1700 DATA 250, 0, 14, 250, 200, 15. 0. 200, 14. 

. 180. 15 
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«X7)*{X*}*<7)S|5*Eafc Uv*P 



jfc>lt*f ^LT^2'^ £E 
i8^£ftTO£*G+100 {}"C0g|5 

#Efc5„ Co*>ti3:¥£fS7>£W 
-?rtz(D^m-r<no ^m" 

*2}**f C(7)*&(i^*>*bfe=l 

fj^*bns. - co *%" =i v > k 

^-r>K-V^^"fE N *0>±.K 

s:*?r^7-rnti; ttiixizm 

7fi$tiX\.^tz04> K-tif^T 

l^fcXi ti^-3(7)A(73iSA*tSS % 
^#ESimflDE«ilS(7)^„ 






$ 



FO/G+l {KM} $¥ 
FO/ {£«} G+l OU $¥ 
FO/ {5:^1} {Km?} $¥ 



nvvKcDattf 



{ X* } 



gfeffOMV / UV>K®3£0 { X» } $ ¥ 




3kft(DmV \\/\\ z\^y\«DMV { X* } ziVVK©^^' { X» } $ 



I^t^^tA'TSS, BMW 
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anteSP&Htt! 









Dante 2 <7)$*rcJiiP& *3Sfrl: 
WcC&Ji^W < Wit b nx 3 *, 
b £ L T t, -5 ft L I ^R 'J #©£# 
*ft£|S|H$H % 7-f— ;UKS!RPG 

tf> 5 J*# : ^-£fc#-ti- b H tz (D h fit 
X, A$t©E«*fc&«>-CfBgfc<*i+ 








#gMco^i^H®7.A — Xx? a— ;u 

b*lfc$WKC*&5o *"3A\ ^ 
*£% K^zy -f — ;u FMRPG^fF 
Vtz\.Wt>\ KhlfV-tllL BfcV. x 

$£*(* Dante v U -Xff? 3 $<7)f| 



wwtfi 






; 1 M M tt30 03 1 

ur -mp ±27 oo6 

h *&rz/ 
M iKTto/ 




4J&-F& 



TUT^S 005 

^'!^'5^ ooi 






CfAibhStW' 



I r> -3 
h I* fc fr 
L C g ta 

fc BB a T 

tz tf « f> 

MA' 










H/020 H/020 H/020 H/020 
M/000 M/OOO M/000 M/000 
L/ 01 L/ 01 L/ 01 L/ 01 



feaM^ZJl> tm«». , AtWL ! AH B L ' J.I«m.^JM» .n 



z?>i£ s zmx-iz^-ithHtzM 
m* t njfZ, £'z & x-mmm- 
zMix^z>m%tzo 

fc£jt& MSX2 + <7>/\- KO 

x77^ D-)^m^m^x±m 

H T* # * 1 fc A,tzttf £\ Dante 2 
(7) «fc 9 IZ 7=7 7 -f -y £ * -V 5 ? 

9 -ikWv^^l *)£-$%£. *> 

fc'ty £■„ £ C fr £ PpTH#£ l *<7) X- 
A * 'J «^> fcW-f >^T'# & < 




^ r -r t- a 4- ir t> is^ l fc ^ i ta„ 

^f5f*fc?l#-^iMztti?nTfc, 

Xt)l1izlt^fr%:\.\ V-&6t£to 
f&cli.tt<7> : ?fctz' l^vT-f 
A3S fe^c^T**^, 



ZntzfiK rfJlg<7)RPG 



■^'F^±m±-tt~4?\ Bu^i^Ja 



3u21P~+uj0Qr , i'N-3't!/.tll.'. . I RETURNr 



TEofe»0" »ttt>VO, l,»oG*Al;U I 



OS, r 



• AUTO 
OPUIT 

■ < y»- 

• CHECK 



. |X=32 Y = 21 



c»^c—y-a ow.uevs.r u*y*A«» 



* >< ■■/ ^- yf- ^ ff>»5t *>!§::*: 73$ fcS#co^ite& ij « 



i^ 



.^"S 



Dante3i7-fx71*SDante2^ 



DP 






UcfcU^Dante^'J-xmasf 

ttstmh-'i\\±m\z^i\T{zmsD 



±iS€3ior<nr : fe7i-— ir-fc*o 

Rf© r Dante37i'T r 7IS*^j^ 
rigor <ft 



=feS5^Danteer^mUt7t 
U2;^Jbf^S=feilll*A:o 366(* 
r DanteE^S^j*r^co t. < C« 

¥tol-Sor^5© ; feLM^t.o fe 

<■s^©JS*^ors^o 



56 



=107-24 
DanteOOO^ 
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zww^mgpmz 



T'UMuSICAT'-fto tz&Zfrtz r> 
(f L* N "b BASICH^LTA1GT<7) 
MIDITiS^-ttTl^-fo M7# 

r 7*>fcfcfco! cft(5A,£i:: 

U*-Lfc& ItLfcMlDKi-rz-iN 

TZtM^TL&icniZ, £t?m 
Dl^r v - T<DWR£ So T US A 
tf^h-h U * ftU*rft AIGTft 

y§fc»;t&c*c#s<7>c **!*>o 

TU% AttS>ftlH7)TL J: "5 * x ? 

£ Cfr < ^ Lftltfttfimfcffl 
£-t+A< ZtzOMtifU— JgMIDI 

$ Tiifflte A<ft < ft U £ L fcM 

h\ 7-r;u^-Sft^(zSfe)BELT*. 

£LX1 



WTrJI^HW 



FM^imzi£Tj-n-y->>-tz<n 
T\ CT£«fc^Tl5W$ft#j*£ffc 



LWb g sc^flFft* c £ p 

ftSc/reiJftUT'L.fc-^o 



7<rtl*-»fcB? 



■7-f.ju?— £u-5<7)is % &-5>— 
i**tfx ^^lia-SftSlSfc 

ft u * To * t- u * ft £*tz& a ^* 

7^3* h— >n> h p— jufc^ 

«<7)«T'iift < , ^m^f^^ 

3£fbt>-££ftS</Tt\ K—>3> 

h n— ;uft*ri:lS*>j: o fcilofc 
#&7j"Cft U $ -fo T-l JTt" p ?* 
~> >-tz<7)7 -r ;u* - 1 tt £*A,ft t> 

-ftte/p+'U^tf):*^ h;u 

-i:j:oTA7 h^ft&^&M 



tcfttj, teu£fS^<7)^fti\*iu 
^{ZftoT-9-T >&Ki£-?UTU 
£*T„ *— r'-r *ffl<7):7 -r ;u? 
— t<7)itl^i*'y hTS'7-r./i'? 

fg^tetfHiSfcA^fcfcSftuz 
£ T-fo fc £ Hit 1 oo^-ii^y^S^ 
&t?SS 4 f£^Ui£ * -y h L tz t 

300'x/u , yOTii£ fct\ fcu-5 c 

LT{*imftt><7)i:t^*-ro 

3 ft £ FM^gT383tr S*^* 
ifi(7)Zi:frft(fv.^^(t"C % f& 
^(7)ft^+f-< >sft(zfg 3 f£^£ T- 
^riP^fttf lei U^dft »; * "To T* 



x? ftfcw*\ fe ^ frhowm 

(7)fr£>fri)£l+A, tZX-y-DV 
5-X-h -y h T %^ift»/1«-f > h 
^JL>^a-y°x^it$it^>t. 

* «t -5 ft&^fflli- * To FM^ii 
TIS^E v a. U— ^ — 0)|±tfj u^<;u 

ftSjxffltzm^u^u^J^L^ 

•y h$ftS)<7)"Cx7-f Ji/^— i:L 
T-5 *<#<*<> hfcjloltft 
tf % iS(c^^p>hP-^T*# 

^■e-HctoT N Te^^-r > h* < — 

£-eft 1 ^<7)*<FM^ig<7)®fflft i: 

ft^&^ffl*L*Lfco 



eg 
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32 74)\&-^mam&Myb&&¥m 



©^b^^bb^U [/£=&£ 



>K^;Ub^MCHWW©£tteft©*fi*j**M> 









©«fi3W6* i <ft9liWBfc»fctWK«fVlN 



x>a;p-^ 



3£s mtttfrWtgTWA-W 



/K-f>NWfi«5a 






(is h-?JUU"<-.>U£0(Ii£-?*(t 

t^#s *ftT-fc£u&u*§i=rii 

< #o"T #*:£:: 5(7 *JU* - 

(DfrfrW&lbWl f! < 7-f JU* 



^^^^^^^^^ff 




^ JlMaiM^ 


^^^m ^Tm^Jk 1 






£ * « 


£ ft « 


*** FM VOICE EDITOR DATA *** 


*** FM VOICE EDITOR DATA *** 


*** VOICE NAME=FILTER *** 


*** VOICE NAME=SYNLEAD *** 


PARM/OP0. OP l | MODUL E ! CARR I E ! 


PARM/OP0. OP 1 ! MODUL E ! CARR I E 1 


h-»* I'v'* | 10 ! ! 


i-H W % ! 4 ! ! 


7|-|*A'»* ! ! 


7<-l'fl* il ! 3 ! ! 


£>V D-7' J<7" 1 1 ! 1 ! 


ivV o-7* H7' ! ! l ! 


7**7" A l^'A ! 1 ! 1 ! 


7*f7'* l»V* ,| 1 j 2 ! 


7*»i> !• 5-|- 15-1 


7*»* !• 8 • !• 15 • ! 


?*<*< !• 2 • !• 0-1 


i' tt< !• 2 • !■ 0-1 


»7.t<> !■ 15 • !• • ! 


Mt<> !• l • !• 0-1 


y M -x !• 5-|- 4-| 


'J'i-7 !• 3 ■ |* 4-| 


*-m M-nw \ ! i 


*-m it-wr ! ! ! 


M-a'A *»-* ! ! ! 


♦-I/V* 7.*-* ! ! ! 


tun 10 10! 


H-tn ! ! ! 


t'7'7-1- ! ! ! 


f7' 7 -f ! ! ! 


r'<Xh-->3> ! ! ! 


j' </t|— 5»r> |0!0! 


DATA 0000 0000 0000 0000 


DATA 0000 0000 0000 0000 


DATA 0000 0000 0000 0000 


DATA 0000 0006 0000 0000 


DATA 0A21 F552 0000 0000 


DATA 0401 1382 0000 0000 


DATA 0021 04F0 0000 0000 


DATA 0622 04F0 0000 0000 



| 


vuyjbvxh 




10 ' "MWS17M1. BAS", A 


20 '< Music Workshop Vol. 17 > 


30 '< SYN LEAD > 


40 *< BY Y. KITAGAMI 1992(C) > 


50 CLEAR 5000 


60 V// INIT /// 


70 CALL MUSIC (1, 0, 1 , 1, 1, 1 , 1, 1 ) 


80 DEFSTR A-H. T 


90 DIM AX (15) 


100 POKE &HFA2C. 20 


1 10 SOUND 6, 30 


1 20 SOUND 7. 1 28 


130 FOR 1=4 TO 15 


140 READ A$ 


150 AX(I)=VAL ("&H"+A$) 


160 NEXT 


1 70 DATA 0, 6, 0, 


180 DATA 0401, 1382, 0, 


190 DATA 0622, 04F0. 0, 


200 CALL VOICE COPY (AX, @63) 


210 */// PLAY DATA /// 


220 ' •-— INIT — 


230 T="T120 


240 A0="O5L16§63V15 


250 B0="O3L16@63V13 


260 F0="O3L16@33V15 


270 G0="V1 @A15 


280 H0="S0M3000L4 


290 * '-— MEL — 


300 A1 = "D8. A8. >D8C8. <B8. A2. R8. GAG 


310 A2="G-4. G8&G2&G1 


320 A3="G-4. >D2>D8&D1« 


330 ' '--- CORD - — 


340 C1=">G-G-R16 G-&G-1&G-2. 


350 D1=">DDR16 D&D1& D2. 


360 E1=" AAR16 A&A1& A2. 


370 C2=" EER16 E&E1&E4E4F4 


380 D2=" CCR16 C&C1&C4C4D-4 


390 E2=" GGR16 G&G1&G4G4A-4 


400 ' '-— BASS --- 


410 F1 = "D8. A8. >D8<D8. A8. >D8<D8. A8. >D8<D8 


. A8. >D8< 


420 F2="C8. G8. >C8<C8. G8. >C8<C8. G8. >C8<C4 


D-4 


430 ' '-— DRUM — 


440 G1="B!H16H16H16H16 S! HI 6H1 6H1 6BIH1 6 


450 G2="B!H16H16H16H16 S! H1 6H1 6H1 6C! 1 6 


460 G1=G1+G1+G1+G2 


470 H1="R4C4R4C4 R4C4R4C4 


480 PLAY #2, T, T, T, T, T, T, T, T 


490 PLAY #2, A0, A0, B0, B0, B0, F0, G0. H0 


500 PLAY #2. A1, A1.C1.D1. El, F1.G1.H1 


510 PLAY #2, A2. A2, C2, D2. E2, F2, G1, HI 


520 PLAY #2, A1, A1, C1, D1, El, F1.G1, HI 


530 PLAY #2, A3, A3, C2, D2, E2, F2, G1, HI 


540 GOTO 490 
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fc<*/u©JBIW5D#<!:5ll Z1ZZ1Z 



fW~;/3^> 



miff/ 

mm 



8S 


FM1 =A, V 
FM2 =B, V 




*?T 


FM3 =C. V 




1 


FM4 =D. V 




R 
Y 


FM5 =E, V 




FM6 =F. V 






FMR = 






FM7 =H. V 






FM8 =1, V 






FM9 =J. V 






PSG1 = 






PSG2= 






PSG3= 






SCC1 = 






SCC2= 
SCC3= 






SCC4 = 
SCC5= 
A=V15 

B=V12Z 20R12 
C=V1 IZ 40R 6 
D=V10Z 60R 6. 
E=V 9Z 80R 3 
F=V 8Z100R 3R12 
H=V 7Z120R 3R 6 
I=V 6Z140R 3R 6. 






J=V 5Z160R 3R 3 

V=T1 0087706 (CI60M5) CIDEFGAB 






> (C 1 60C8P5M1 >C 1 80M5) C. 
R1R1R1R1R1R1R1R1R1I 

<FM VOICE No. 78> 






MD 2-2-1- 0- 8- 1- 1- 0-0-0-off-off 


off 




CR 1- 7-.15- 1- 2- 6-0-0-off-off 


off 



zvWMW 



mm/ 



NE 


FM1 =A, V 


Km 


FM2 =B. V 


■T 

20 

R 

Y 


FM3 =C. V 


FM4 =D, V 
FM5 =E. V 


FM6 =F. V 

FMR = 




FM7 =H. V 





FM8 =1, V 
FM9 =J, V 
PSG1 = 
PSG2 = 
PSG3= 
SCC1 = 
SCC2= 
SCC3= 
SCC4= 
SCC5 = 
A=V15 

B=V12Z 20R12 
C=V1 12 40R 6 
D=V10Z 60R 6. 
E=V 9Z 80R 3 
F=V 8Z100R 3R12 
H=V 7Z120R 3R 6 
I=V 6Z140R 3R 6. 
J=V 5Z160R 3R 3 
V=T1 00S77O6 (CI60M5) CIDEFGAB 
>(CI60C8P5M1>CI80M5)C. 
R1R1R1R1R1R1R1R1R1I 



ffex— ^ 



<FM VOICE No. 77> 

MD 8-2-1- 1- 8- 2-15- 

CR 1- 4-15- 1- 1- 



0-off-off-off 
0-off-off-off 



x-f 7. h — v a >$$—X* □ 

— 7 U— XCi -p X l ^Xji-o X I » 



f$3m/l3.%>£. 

5 It £\ %&' <v*r> favfiifft. 
lz\-oXL£r>tz c 7*9-3.— >* 

tz^ru^xb-tt^o 



;"S0UND3" 

FM1 =T, A1.A2. A3 



FM2 =T, B1, 
=T, CI 
=T. D1 
=T. El 
=T, El, 



A2, B3 

C2/4 

C2/4 

E2/4 

F2/4 



FM3 

FM4 

FM5 

FM6 

FMR =T, G1/4 

FM7 = 

FM8 = 

FM9 = 

PSG1=T, H1/4 

PSG2= 

PSG3= 

SCC1 = 

SCC2= 

SCC3= 

SCC4 = 

SCC5= 

T=T130 

E1=§69V13L16 

E2=05Q6C8<Q2CC>Q6C8<Q2OQ6C8 

<02CCCQ7>C8C8 
F2=04Q6G8<Q2GG>Q6G8<Q2G>Q6G8 

<Q2GGG>07G8G8 
CI =633 
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r«»gg. 




D1=§12Z30Q1 

C2=V 1 5L 1 603CRC8B->C8<CCCCOC<CB-8 

G1=Y22. 0Y23, 0Y24, 170 

Y38, 5Y39. 0Y40, 2 

V 1 5B4SBM8. B8B 1 6B 1 6B 1 6SBM4 
HI =L16 

V 1 0§6CCCCV 1 2§ 1 4C8V 1 066CC 

§ 1 0C66CCCV 1 2§ 1 4C8V 1 0S 1 0C©6C 
A1=V15 
B1=V11Z30R8. 
A2=L16©6905B-4>C4<B-8. G8. F+8FE-CG8GRG 

B->C<G>D (E-M1 PI 6) G8P0C 

E-8. CR8E-8. CR8E-CFC 

(G2M1P1 
A3=) C2 
B3=C16)C4 



ffiT*-^ 



<FM VOICE No. 69> 
MD 5-3-0- 1- 15- 3 
CR 1- 3- 9- 2 
<PSG VOICE No. 6> 
32-22- 0-32-off-on 
<PSG VOICE No. 14> 
32-12- 0-32-off-on 
<PSG VOICE No. 10> 
32- 19- 13-32-off-on 



4-0-0-off-off-off 
15-0-0-off -off -on 



/Jn7W zmmmmm 






(5-5A < *-tza < fc<-n.M.**:JB'5 




10 'Brass (horn) 

20 CALLMUSIC:DEFINTA-Z:DIMA(15) 

30 F0RI=4T013:READA$:A(I) =VAL f&rf +A$) :N 

EXT 

40 CALLVOICECOPY(A, §63) 

50 PLAY#2, "§63T0LV13C2B-A2F>C1" 

60 DATA 0000, F, , , 89C0, 3189. . , 3D01. 1 1A9 



RA 



M L X < titz FM^Mt / < X 
(Z, SfcA^aWXfcl^SX 



NMi/±m 

A%-saLfc<7)«»»zffi-rs, 




No. 93 voice name "syakuhachi 
a, al 
az. al 

;az2, al 



SCC1 = 

SCC2= 

SCC3= 

SCC4 = 

SCC5= 

a=t130v15§93o6q5 

az=t 1 30v1 5©93r64o6q3z30 

az2=t130v15S3o6q3 

a1=18beebagf#agel24(ef#)el8dede4<beebagf 

#age!24(f#a)f#18de2 



>b£x-£ 



<FM VOICE No. 93> 

MD 0-6-1- 2- 9- 7- 14- 0-0- 

CR 0- 1- 6- 1- 2- 6-0- 



0-off-on -off 
0-off-on -on 



BOOM 



FMmr&tt&m 



7 - hfefc^ (z h *> r> X i ^ i ^ 



/Co Zl <7>ftp° n <7)J§^FI\/h£^ -v >* 



FM1 =T. A. R 

FM2 =T. B, R 

FM3 =T. C, R 

FM4 =T, D. R 

FM5 =T, E, R 

FM6 =T, F. R 

FMR = 

FM7 =T. H. R 

FM8 =T, I. R 

FM9 =T. J, R 

PSG1 = 

PSG2= 

PSG3= 

SCC1 = 

SCC2= 

SCC3= 

SCC4= 

SCC5= 

T=T32@64V15O1L1I255M10 

A=A 

B=Z20A+ 

C=A+ 

D=Z20B 

E=B 

F=>Z20C 

H=>C 

I=>Z20C+ 

J=>C+ 

R=RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

<FM VOICE No. 64> 

MD 11-2-1- 4- 8- 3- 8- 0- 0- 0- of f • of f • of f 

CR 1- 1- 8- 0-15- 1-0-0-off-off-off 



ttBEZR/VCSHH 



T\ at#(z*^(z=£^L*Lfc*<, 

mux < titzwmnkr>±mm$ 
a,iz, im*m&T f?&ij<i% 



mztitzyjizimm^sooop]}:, 

fcf— *-fevhT7*Hf» *fc 

±n<D±M £ A, (Z (i fc£P $ £ V 7 

h£-1*&L-h(;fJTo 



83 



m <z> 



£ A,<Mfer> tz ft *mk L T I ^ To 

< c* U s^i/gprciiflBSL *f 
fFn a q(i basic musical £*-<=> >b£ 




«mfcut|2»#5000n* 



35 
56 



=107-24 

38R«sjtEBiitiu6-ii-i 

MSXV#S»8I»§B 



7MJS>-t-JUBI3pT musicals 



latform 

by MASQUERADE 



;/*♦*************»********« 

;» « MY PLATFORM » * 

;* - TOUGHROCK BGM #7 - * 

;* composed by Masquerade * 

; *************************/ 

FM1 =t, chA. A1/2 

FM2 =t, chB, Bl/2 

FM3 =t, chC. CI/2 

FM4 =t. chD. D1 

FM5 =t, chE. F1 

FM6 =t, chF, F1 

FMR =t. chG. Gl/4 

FM7 = 

FM8 = 

FM9 = 

PSG1 = 

PSG2= 

PSG3=t, chJ, J1/4 

SCC1 = 

SCC2= 

SCC3= 

SCC4= 

SCC5= 

t=t1 20 

chA=816vl2o6slz30 

chB=816v12o5sl 

chC=§16v12o5sl 

chD=869v09o418i30m5 

chE=81 4o3v09 1 1 6q6z30 

chF=833o3v13116q6 

chG=vbl 5vs 1 3vml 4vh09 

chH= 

chl = 

chJ=822v0914 

A1=(dl)d1 (fl)fl 

B1 = Cb-1) b-1> (c+1) c+1 

C1=(g1)gl (b-l)b-l 

Dl=(cl)c1 (e-l)e-l (d 1 ) d 1 (d-l)d-l 

Fl=c8>cr<rcrcccr4. 

C8>cr<ccr4q4c8q6c+8d8 

e-8>e-r<re-re-d e-r4. 

e-8>e-r<e-e-r4q4d8q6e-8e8 
<f8>fr<rfrfefr4. 

f8>f r<ffr4q4f8q6f+8g8 

a-8>a-r<ra-ra-a-a-r4. 

a-8>a-r<a-a-r4q4a8q6a+8b8 
G1=bhl6M6hl6hl6smhl6M6bh16hl6 

h!6h16h16hl6smh16h16bh16bhl6 

bh16hl6hl6h16smh16hl6bhl6h16 

h 1 6h 1 6h 1 6h 1 6smh 1 6h 1 6bh 1 6h 1 6 
J1 =rcrcrcrc 



rfix— £ 



<FM 


VOICE No. 


69> 
















MO 


10-5-0- 1- 


15- 2- 


15- 


4 








off- of 


on 


CR 


0- 3- 


11- 0- 


15- 











off 


off 


oft 


<PSG VOICE No. 22> 
















30- 


12- 6-15-off-on 


• / 















7f U 2WU8BF^ musical 



Run To 

by MASQUERADE 

Affile K^^^&fES"^ ge*A2/A5>18 



;/ ****************************** 

;* « RUN TO SURVIVE » * 

;* - TOUGHROCK BGM #9 - * 
:* composed by Masquerade * 
; ****************************** I 

; sequence data 

FM1 =t. chA, A1 /7. A2, X/8. AX, A3, R. A4, R, 

UA. Ul.AY. A5. R. AZ, A6. R 
FM2 =t. chB. Bl/2. BV. C2/2, BX. B2. BW, B3. 

UB. UI. BY, R. A5. BZ, R, A6 
FM3 =t, chC, Bl/2, CX, C2/2. CY. R. A3, R, A4, 

UC.UI.CZ, C5/.C6/2 
FM4 =t. chD. B 1 /2. DX. C2/2, DY. D 1 /6, D2, 

D3. D4. UD. UI. DZ. D5/4. D6 
FM5 =t. chE. El/8. E2/4. E3/3. E4. E5, E6. 

E5. E7. E8, E9/2. EA/2 
FM6 =t. chF. El/8. E2/4. E3/3. E4. E5. E6. 

E5. E7. E8. E9/2, EA/2 
FMR =t. chG. Gl/33. G2. Gl/16 
FM7 = 
FM8 = 
FM9 = 
PSGl=t, chH. Hl/8. H2/2. Hl/7. H4. HI/8. H4. 

H3. Hl/7, H4. Hl/8 
PSG2=t. chl.R, II. IW. Jl/8. IX. 12. X/7. IY. 

B3, X. IZ. A5, R. A6. R 
PSG3=t, chJ, 1 1 . R. JX. Jl/8. JY. J2. X 
SCC1=:SCC 
SCC2=:ha 
SCC3=;tsukai 
SCC4=:masen. 
SCC5=:ashikarazu. 

; sound data 

t=tl44 

chA=814vl2o7q8116 

chB=@88vl4o6 

chC=888v13o5 

chD=888yl3o3 

chE=@33o3vl3q4116 

chF=823o3vl2q4116z30 

chG=vbl5vsl Ivml4vhl2y22. 88y23, 92 



chH=820vllo718 

chl=810v09o4116z40 

chJ=807vl0o4H6 

chK=823v04o2116 

AX=o4vl2116z30 

AY=82o5vl3116 

AZ=893o6vll 

BV=869o3vl2 

BW=802o6v 1111 6q8 i 50m4 

BX=o4vl2116 

BY=82o5vl3l16 

BZ=893o6vl0 

CX=869o3vl3z30 

CY=o4vl2116z0 

CZ=880o4v09116 

DX=869o3vl3i50m4 

DY=823o7vl 1 1 1 6q4z30 

DZ=880o3v09116z0 

IW=805v05o7116 

I X=80 1 o3v09 1 32p0ml z30 

IY=810o5v06116i40m4 

IZ=807o4v09116z0 

JX=804v06o6116 

JY=80 1 o3v09 1 32p0ml z30 

UA=o6vl4p0mlz30 

UB=o5vl3p0ml 

UC=o4vl4p0mlz20 

UD=o3vl4p0ml 

X=rl 

R=r32 

. M ML data 

Ul=888f+4r4. b-8. >c8. 

Al=f+gf+gq2f+gf+gf+gf+eq8f+gag 

A2=f+gf+gq2f+gf+gf+gf+gq8 

800o6vl2148 baf+d<baf+d<baf+d 
A3=r4. 895b8>c+8. <b8. >c+2 c+8d8. e8. f +8 

(c+dc+4. ) c+2 850a8. f +8. >c+8. <b8. a8b4 

<r4895b8>c+8. <b8. >c+2 c+8d8. e8. f +8 

a2>c+8<b8f+8(al6. ) a2 
A4=>r8d8c+8<b8 e4. (g8) g2 e4. b4>d4. 

c+c+<b> (c+) c+2 d8e (c+8. ) c+2f +8e8d8 

e4. < (b8) b2>e4. <b4g4b8>c2. c8 (c+8p4ml 

c + l)f+2 

A5=al2(a24>d24e24) f24pl0ml a4. g4a8 

i30m4b-4. (g8) g2 pl0ml>c4. 

i30m4<a4. g8 (a8) a2. gc+8. 

e8d<a8. >e4d4<a8p20ml» 

e8i30m4d<b-8. >e4d8<b->d8. 

a4. f 4fef p4ml (e8. d32dl 6i30m4) d2. . < 
A6=r4. a8q6a8. a8. q8 (g8) g2g4e4 
(i40m4f8f l)f 1 

r4 f8q6f8. f8. q8 (e8) e2pl 6ml a4c+4 

i40m4(e2. . d8) d2 

Bl=b2r2r2. . a8 b2r2r2. >b4< 

B2=r4. 895f +8f +8. f +8. a2 a8a8. b8. >c+8 

<f + 1 850a8. f+8. >c+8. <b8. a8b4 

r4895f +8f+8. f+8. a2 a8a8. b8. >c+8 

e2a8g8c+8(e8)e2r2 
B3=g8f+8e8g4f+4e8 g8f +8e8g4f +4e8 

f+4d8f+4b4>(c+8) c+1 

e8d8f+8e4d4f+8 e8d8f +8e4d4f +8 

g4e8c4g4(f+8) f+1 

ec+<b-g> c+<b-ge b-gec+ gec+<b- 

C2=s1 (blblbl)bl 
C5=d8qlvl0ddddddq8v9 d8frfd8. 

e8ql vl0eeeeeeq8v9 e8b-rb-g8. 
C6=o2vl 1 b- 1 >c 1 (dl)dl< 

Dl =<f +8f +8>r8c+dec+r8c+c+dc+ 
D2=<g8g8>r8c+dec+r8c+c+dc+ 

<a8a8>r8c+dec+r8c+c+dc+ 
;are? nanda, kokono part ha! 
D3=rlr1rlrlr1 rlrlrl 
D4=rl 
D5=a8qlaaaaaaq8 a8>crc<a8. 

b-8qlb-b-b-b-b-b-q8 b-8>ered8. < 
D6=o6v8r4. f8q6f8. f8. q8 (e8) e2e4c4 

(i40m4d8dl)dl 

r4 d8q6d8. d8. q8(c8)c2pl6mle4<a4 

i40m4 (a2. . a8) a2. . . . 
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E1=b32r32<bb>b32r32<bb»d«b 

» (d32) e 1 6. «aa>c+c+<a8> 
E2=bb<b>br8aa<a>ar8>c+c+<c+>c+< 

bb<b>br8aa<a>ar8gg<g>g 
E3=bb<b>br8bb<b>br8bb>b<b 

aa<a>ar8aa<a>ar8aa>a<a 
E4=ee<e>er8ee<e>er8ee>e<e 

aa<a>ar8aa<a>ar8aa>a<a 
E5=g8f+er8eeeer8beee 

g8f +er8eeeer8be>c+<e 
E6=>d8c+<br8bf+f+br8bf+f+b 

bf+f+br8bf+f+br8bbf+b 
E7=ff<f>fr8ff>f<fr8ff>ff< 

g-g-g-g-r8g-g-g-g-r8g-g->g-g-< 

9-g-g-g-r8g-g-g-g-r8g-g->g-g-< 
E8=>f + r8. r4. <b-8. >c8. < 
E9=dd<d>dr8dd<d>dr8dd<d>d 

ee<e>er8ee<e>er8ee<e>e 

ff<f>fr8ff<f>fr8ff<f>f 

gg<g>gr8gg<g>gr8gg<g>g 
EA=<b-b-b-b-r8b-b-b-b-r8b-b-b-b-> 
ccccr8ccccr8cccc 
ddd>d<r8ddd>d<r8dddd 
ddddr8dddd>d<d>dc8<d 

Gl =bhl6hl 6h1 6hb1 6 

smhl6h16bM6M6 
bh16y24, 132smhl6y24, 84bh1 6hl 6 
smh16hl6hbl6bh16 
G2=bhl6h16h8 bh16h16h8 

bhl6hl6bh8 bsml 6bsml 6sm1 6sm1 6 

Hl=rrcr rl 6cr16cr16818c16820 

H2=rrcr rl 6cr 16crl 6818c1 6820 

rrcr rl 6cr 1 6c 1 6818v13c16c16c1 6820v1 1 

rrcr rl 6cr 16cr1 6818c! 6820 

rrcr rl 6cr 1 6c 1 6805v09b1 6b- 1 6a1 6820vl 
H3=82 1 v07 rcrc rc820v II c 1 6c 1 6c 1 6c 1 6 

H4=rrcr rl 6cr 1 6c 1 6818v13c 1 6c 1 6c 1 6820V 1 1 

I1=(b32>c+. )c+4<pl6ml (f +8f +2) f+4. f+8 

g8. >e8. d8 i40m4c+2. <b4>i60c+l< 
(b32>c+. ) c+4<pt6ml (f +8f +2) f+4. f+8 

g8. >e8. d8 p0c+dc+<b>c+8 <b>e<bag8 

agf +d< (b32>c+8. . p52»c+32) 

i40m4 (c+4. . ) r4 
I2=b>df+a b>df+a>c+8r8r2 

J1=r4r8ddeededer8 
J2=rb>df+a b>df+a>c+8r!6. r2 



/**** INFORMATION ****/ 
Dante2r' GAME? V9'll\v' *$)t ' , ->fl' 7? 

M 2-f-A) + ■)*'*' ntltyr >7{7->J. 

Funky Hoggee7r> ; UTJ Ht-jf, VV+H] 

game i ttf turw tint. 

presented by MASQUERADE 1992 

[*77:*37 / 1iir-A 
main () 
{ 

while (blood != 0) { 
dance () ; 
blood — ; 
> 

printf ("77. Hvliii. ¥n") ; 
exit(-l) ; 



<FM VOICE No. 95> 



MD 20-6-0- 1- 6- 3- 


2- 1-0-0-off-off-off 


CR 1 - 1-12- 3- 


1- 6-0-0-off-off-off 


<FM VOICE No. 50> 




MD 9- 1 • 1 - 3-12* 3- 


5- 6-0-0-off-off-off 


CR I- 1-15- 3- 


4- 7-0- 1 -off-off'off 


<FM VOICE No. 88> 




MD 1-6- 1- 0- 15- 15- 


I- 8-0-0-on -on -off 


CR 0- 0- 15- 15- 


0- 5-0-0-off-off-off 



MD 13-4-0- 3- 15- 3- 2- 


I 


0-0 


Off 


off 


off 


CR 0- 1 - 1 1 - 0- 15- 


4 


0-0 


off 


off 


on 


<FM VOICE No. 69> 












MD 10-5-0- 1- 15- 2- 15- 


4 


0-0 


off 


off 


on 


CR 0- 3-11- 0-15- 





0-0 


off 


off 


off 


<FM VOICE No. 80> 












MD 0-3-0- 1-14-15- 1- 





1-0 


off 


off 


off 


CR 0- 8- 15- 1- 2- 





1-0- 


off 


off 


off 


<PSG VOICE No. 20> 












32- 16- 5- 13-off-on ■ 16 












<PSG VOICE No. 18> 












32-20- 4- 4-off-on • 16 












<PSG VOICE No. 5> 












32- 17- 6- 12-on -off- 16 












<PSG VOICE No. 21 > 












32- 8- 4-32-off-on -3 












<PSG VOICE No. 10> 












32- 16- 14-20-on -off-0 












<PSG VOICE No. 1> 












30- 9- 7- 16-on -off- 17 












<PSG VOICE No. 7> 












30- 16- 13- 6-on -off-7 












<PSG VOICE No. 4> 












32- 17- 7-1 1-on -off- 17 













<FM VOICE No. 93> 



7-hB.j.-i>y9m] musical iscc 



037*fW 41BGM 



Q-f'z 



by Jn^jEtS 



5o f?a->«ssDy\f[:fori^j:uo7: 



FM1 =T. A. A0 . A1.A2 

FM2 =T. B. B0 , Bl. B2 

FM3 =T. CC0.CC. Dl. 12 

FM4 =T. D. D0 . Dl. D2 

FM5 =T. E. E0, EE. Dl. D2 

FM6 =T. F. D0 .D1.D2 

FMR = 

FM7 =T. G, A0 . A1.G2 

FM8 =T, H. B0 . Bl. H2 

FM9 =T. M. A0 , Al. A2 

PSG1=T. J. A0 . A1.A2 

PSG2=T. K. B0 . B1.B2 

PSG3=T. L. L0 .D1.D2 

SCC1=T. N. A0 , A1.A2 

SCC2=T. 0. B0 , B1.B2 

SCC3=T. 0. P0 .D1.D2 

SCC4=T. 0. 00 .D1.D2 

SCC5=T, N. R. A0 , Al, A2 

T=T1 31 

M=871L805V13Z35 

. FM 1CH 

A=8606V13L8S1 

A0=C. CC1 6CDDR4E-. E-. FFR4RG2L 1 6FEC< (G) G4F 

EC< (G) G4L8>E. G. >C 

A 1 =G2L 1 6FEC< (G) G4FEC< (G) G4>L8G. >C. EG2L 1 6 

FEC< (F) F8DEL6FEFGFG 

A2=L16A-B->CDE-DC<B-A-B-A-GFGFE-L8D. F. B- 

. >E-. A-4G2L 1 6FEC<G8G>L8CD 1 6E- (E- 1 6) E-4E- 

1 6F (F 1 6) F4F 1 6GGF 1 6L 1 6 (GGGGGV 1 1 GGGV 1 0GV9) 

G 

. FM 2CH 

B=8605L8V13S1 

B0=A. AA1 6ABBR4>C. C. DDRR4E2R1 <D. E. G 

B1=>E2RKC. E. G>C2R2<C2C2 

B2=C1C. C. F. B-. >E-4E2R2<F16G(G16)G4G16A(A 

16)A4>D16EED16L16(EEEEEV11EEEV10EV9)E 
. FM 3CH 

C=871L8O4V12Z0 

C0=F. FF16FGG V14«GG»V12 A-. A-. B-B- VI 4 

«GG16GG16V12 

CC=Z20R32C>C<C>C<C>C<C>C<C>C<C>C<C>C<OC 

< 

I2=F>F<F>F<F>F<F>F< G>G<G>G<G>G<G>G< C>C 
<C>C<OC<C>C< E->E-<E->E-16E-16<F>F<F>F1 



6F 1 6 CI 6CCC 1 6L 1 6 (CCCCCV 1 1 CCCV 1 0CV9) C 

. FM 4CH 

D=87101L8V13 

D0=Q6R2. GGR2RGG1 6GG1 6> Q8C>C<OC<C>C<C>C 

<C>C<C>C<C>C<OC< 

Dl =< B->B-<B->B-<B->B-<B->B-<B->B-<B->B- 

<B->B-<B->B-< A>A<A>A<A>A<A>A< D>D<D>D< 

E>E<E>E< 

D2=F>F<F>F<F>F<F>F< G>G<G>G<G>G<G>G< C>C 

<OC<C>C<C>C< E->E-<E->E-16E-16<F>F<F>F1 

6F1 6 CI 6CCC1 6L 1 6 (CCCCCV 1 2CCCV 1 1 CV 1 0) C 
• . FM 5CH 

E=87104L8V12Z35 

E0=F. FF16FGG 833Z0V1 4<GG>871 VI 2Z35 A-. A- 

. B-B- 833Z0V14<GG16GG16> 

EE=87 1 Z35V 1 2C>C<C>C<C>C<C>C<C>C<C>C<C>C< 

OC< 

. FM 6CH 

F=83302L8V13 

. FM 7CH 

G=871O5L8V10Z20R32 

G2=L16A-B->CDE-DC<B-A-B-A-GFGFE-L8D. F. B- 

. >E-. A-4G2L 1 6FEC<G8G>L8CD1 6E- (E- 1 6) E-4E- 

1 6F (Fl 6) F4F1 6GGF1 6L 1 6 (GGGGV9GGGV8GV7G32) 

G 

. FM 8CH 

H=871O4L8V10Z20R32 

H2=C1C. C. F. B-. >E-4E2R2<F16G(G16)G4G16A(A 

1 6) A4>D 1 6EED1 6L 1 6 (EEEEV9EEEV8EV7E32) E 
. p SG 1CH 

J=8605L8V13 

. PSG 2CH 

K=86V1304L8 

. PSG 3CH 

L=815V1404L8 

L0=F. FF16FGG 81 4V1 5«GG»V1 481 5 A-. A-. B- 

B - 8 1 4V 1 5«GG 1 6GG 1 6>C>C<C>C<C>C<OC<C>C< 

C>C<C>C<OC< 

. scc )CH 

N=81305V12L8 

: SCC 2CH 

0=81 304V] 2L8 

: SCC 3CH 

P0=F. FF16FGG 8 



V15<«GG>»V12813 A-. A-. 
B-B- 81 1V15<«GG16GG16> C>C<C>C<C>C<C>C< 
C>C<OC<OC<C>C< 

. SC c 4CH 

Q=81 IO3V13L8Z0 

O0=R2. GGR2RGG16GG16 VI 4Z20C>C<C>C<OC<C> 

C<C>C<C>C<C>C<C>C< 

; SCC 5CH 

R=812Z40 



ffix-* 



<FM VOICE No. 71 > 
MD 3-4- I- 2- 13- 13- 
CR 1-12-12-15- 

<PSG VOICE No. 6> 
29- 7- 13- 1-on -off- 
<PSG VOICE No. 15> 
29-16-14- 7-on -off- 
<PSG VOICE No. 14> 
32- 12- 13- 2-on -off- 
<SCC VOICE No. 13> 
32-22- 9- 7 

0-40- 40- 40- 40- 40- 40 
40- 40- 40- 40- 40- 40- 40 
C0-C0-C0-C0-C0-C0-C0 
C0-C0-C0-C0-C0-C0-C0 
<SCC VOICE No. 11> 
32-22- 9-32 
80-8E-A0-C0-E0- 0-20 
3E-3C-3A-37-31-29-20 
10- 0-E6-C0-D0- 0-20 
10-E0-80-C0- 0-20- 
<SCC VOICE No. 12> 
32-22- 9-23 

0- 19-31-47-5A-6A-75' 
7F-7D-75-6A-5A-47-31' 
80-90-A0-B0-C0-D0-E0' 

0- 10-20-30-40-50-60- 



3- 2- 

1- 2- 



' 1 -of f -on -off 
•0-off-on -on 



40 
40 
C0 
C0 
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L.fc-5, 

£T£ 
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i * •) ^SotX^Wj:*^ ^ Mz ^ 

^»^ tz-h-ht^-oXtn^i^ 
nmti^WIXiZte^L, Z(D 
imfittif&t: LT«i§i*cofc(Z){z 

f— MZ-o^X, L^SZStl^P 

■ientZl992^(i-¥-<7)5K?*T\ 4 



4-^tix fi^«S§i7-»*\ 
^tz$?s ie^rr-< # % t fc % fi^ 

§t(7)150A< P>v.^(7)Zli:%-^7> 
Kv^^— -oX^nA,tztf£\ Z 

(Do -ho^Wi^^^^fj^^ny 
i:t^Atz> fji«fi77-» 

-y°v- Ytfmm-ZMzXte* 

7.<nMB£iQF?&;£Xi3tt:z:i:<n 

X'g Z> -7 > >X\ 1 989^(ZTfe<7) 





»-f-5* h/*P#l£ 




ai»»w><b 



SrfcsFTiT, Z(79£#*t$tL 

7^1- >?*t*2700< h^tz^tzih 

JUT'ls -f ^ f > ?*2200 < >b l*£ 
* **»** fTCf* -7°V- 

h Cfcfc£< flrc4^A,fcrittffe)„ 

* ? — T*& & -h * J \° P 7€ A<79 U 
•f^-T >?*te 2900 < «b I «T» Z<79 

Aci*T r -r -y°y- h (izziftLT 

* Z T±IZ/ \— K 7 x ^®C7)^ 
&&fj-3Tx x-f— yv— K7)ftl 

3^£l00OfSlzLtt8M*<, <% 
%-CT<-5z£tz4-?"Cu-s> 3 
ioti*sajss(z fc(7)^i^itT, 

4^ i: 1 4~1 5¥^fe $ TWO; z t tfi 

T'#^ u-r-^-o^v^wzt- 

5£ v 3A00fiL<7)l''<MZt£Z,tL'?> 

t*)s AWz(*Jfc*Hzft(t4l^ 
Tibitfco 

3--m-tfivttV 7 &fc$ TL*i5t 
A.T-U4l^inTl^*^ -5 

^ £ asi n a: z. h & i&vtf&Sbfotf- 
t-# 5£i*-5 z tM-rmxzt) 

^Bu^T-v-yy-hx*^ +3- 

* *v *n 7«A(Z»Tfct*r^f*^ 
■bfco UPS, l3X'<n7%Mt1l& 
5ttJzait4l^l^Tl*5 

L* V U l ^■LfrVes&foorez 

<c^AMi:x I4^fc$fc*f5t«!>51£ 

£x.-f5A,/icJ:4& JH/iLTA 
B*»7*\ 3 >fcTa -*-*<»* 
Ofl\ <^<79^< *bL^-C(Ztite 

#T* «-oTf5j*^in*lz 

M5£x AXfc^(7>HJ9E<7)+T\ 

bt y ««i-3(?< «U4 < 4o *> 

*e» -5 fci^-9 *!!*<&?>„ 
&iv)-£(& *nf££in<79& 

^(Z^t]<7)^y(7)Z £ £}§LTi^ 
S£inz.£iz4-g> -?£'j\ *a 




fZfBJf) *SZ4 -3 fcSKfc7)£ «J 

<79£z.^zz.^ %$fe$x$m&& 
i)*7lz&z_TL£iM1-teo 

■fttztf£\ hiV-tr>u^<h^ 
L l ^>£T*nB&7)^(z$-A,TtK 

ZftZ**[£ic79;*;ft£B^<5 J: -9 

4\ fcr>*:U-£:o<7>Jjjgi(J*LT 
«#7Xfct»£l.N-9<7>W\ (iT<tt 

m/jfinzitt z- < &y *"? 4~ £ 
*?fcj&-5<7>£tt& znfct, *ot£ 

i^-9^£*^&fcs!>T<fr-&£, ;b*^ 

«£in£, ftp** AM*' 
^Ti^t)tJ ££fi4 r fc<7)£ 

T'l>£ffc7)Z £ £«£ UofcH 

-9* < &i^ti,fl-9tt£*)o 



&*y#;i4v« 

a^«Aniic73g*^^.si:, * 

l*4f*^ 1*«<7)iBtiiW>IB^* 

3f£4£\ T^XlZ&^XttUZ 
£'S/f4fc(7)£^oz.£Ci, "C# 
?>(i-r* < 4^^'btao 

TfeZ(7)itegtbT\ m^is*^* 
ti(5 £im L T in S^ # #l* s; Sr# 
^.•&i:, ^fcLT®>b(79Zi:^m 

oTt^^(7)*^i^(z / ll^T < ^ 
m& Z.(7)iffiJ$±(Z^iXTlN 

TjEittzieife? nx i^ feco^tt 

T300^ffli:i^nTl^ o ^(79 
^%(7)25(W«*nKl«J^flt^ ■¥ 

<n*¥-vWi&.<n®m\t.t £ A,t ioo^ 
Ho "^S'JZ(7)i{bi^JiT-fe^^fo 

^ztkVMimnsm&Astz j: fco 

(ZBJib*SZ L-9-9$,51if;^ 
^T^9, AHfc0ft(t(7)««1J 



■<l-9froTl^ +tz«^ 
*'4£ L T * y P ?rWT 5 v P 7"J 
<7)J:^(Z, -|i(7)T^/Py-i: 
l^-S J: -9 4^(79? x.a-(Z-^ltT 
l^M*t>l^< >bW-* 

i^lft(4> l^fcl>4^4<7)5^ 
69^, ^LT, **B4^Maal» 
L *^% A^-tt-T U4 1 Mz fc M h 
ts AW*^l«r*J:Ut), (i?> 
*HZ^|4 : fft!)* < mn-2)(79(i4-tf 
4©* x o 

^ffii4*b(fl^^-5Tfc^u^4l^ 

oTl^otJ®* < $)■2)^fc'cfc^ao £» 

y(794 l #^s^ *^«-t+A-t+A^i 
4z^^^ox^4<T, ^nx- 

fc^^lz^PW4'lf^yi*^f^.T 
LS-9(7)^fcLn4l\ 

in ACS, P/i?y hSA%-fiHS® 
fe^T, iA^Ao/zSlticT)*^ 

m$c?z> x i um&mmx'b, 

XS.$:W)frTZ: in «fc 1 4^*64 

•? T<7)tt "b ns ^ i ^ i ^*wm l 
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tz £ A. (4* r Genghis j o T£ bu(7) 
a&v H4, mW~^tz-0(7Mm 
■&>■?-£. Mz-0(D^m.^.> 
■y—(F)B£^o h^tzri'smu 
L<frlfrb^Ti^\ Lfrfc. 

b,3&\$tfz>+>-- coNo. 1 *r-ff-§- 

£Sg L fc >bS(Zffl7!)< U % No. 2 *<@ 

asi-b >?-c®&**& -? tzi%% 

14, ^LTAST^i^^i: 
i \ -5 ;u— ;u L rfrfci *A,fcf J: too 

-MZ LA^3£E$n^v.^**Bffi* 
'J &^fl&M p# -y h tt, S15M(7) 

lz : &iT?%*£T*i£££frZ>z£ 

ZjWi-0/rx.Tlilttt < 4oTL 

Z ft£ Ir] i; C £ ^rZnt T*(7)P 



yp-^wb-t±4 -7 trs^v 

P/1^-y h<Z)P>tl°3.— ^— CO^^E 
■J-FWZ ^(7)gj$M(7>ifeE]£*# 
fc-ttT, £'Z.%£'i%>iXi£^tz 
hl^t)-mm£itZ>'S{>mtffo-otz 

t tz, m-tu <i-3TLi*34v 

mm *n^tzzi>\i3.-??-t, 
tz\ht\ z.(D^>^m^£m^ 

§)p#*y Mix ^A/j^tVI'^I' 

T#£A,fc*«fcfco HSfflk #*#<7> 
(ic< /Jx^I^'W^Ui^T-ixix 

frfc\ p* httt:: *>#$(::£ <-? 



SJj-Xlxtf&Ztzmzo tztzt 

(DprnzmfcT %**- -xi±h\ 

<3teB|{$*iT#Tv.^A,£J:fco 

oSU(?<fc*)* < fcoTlx-g>Bw 
(7)4 -9 4^*4«4, M8&& 
lb(3tLT££*I£(7)gE£]££*# 

r>£i)zL7,\-tf>$mizt£Z> 
mzE&tz*><n*pi&khtJs^ 

mm, wdittt-«^ttTx.xsit 




nar, c-ojx^p^hTfFU-h 

irfcZtliT«7)Jifb7)ffi!fe(4. g 
Afc *> H$a&7>f&££ fc fc* L T 
v,^ti^-i:l4HJiLx^x 
*LT3«bC#>fcL3l. *::*:(& 

4 U t)S*SzBg^fl|«*fla*<?T 

7UoT4l» 3:£(7)fc£[Z 

fe s a £-?(7)£##j £#*•?>;:£ 

ft/r&iT' 'J (4, tz "3 vit U (7)^# 

^41b¥«£f5^T, #£7- 
Ui4£ifi^P>hP— ;ULTlx 
5J:?i:^?. £5*^* 3:EE<7) 
5ft<7> £ * iz p P - -(43Eg£ nx 
lx?> i: ^i^Titz < 4^(7)14^51 

(4°U ^nttAIBI<7)?SittT-7' U (7)1ft 
^^moT^RLTtx?,^ ■} (z l 

^lx-)(7)(i N i^^wfT^ciT U 
iiLblz-ISS? ftT l x^, ^/•z ,}: fa, 

msmst®.zt£%>%fo£^n<n\ l i. 

mnzmv-frtthtiTi^T, im 
iz±mizmtz tiWbimLx 

&lx3-* : F9kizfci.htiZ0>l*s 

&m&iz&& $ HtMitifz— 

%&yfflfetz'W£A,tz&too *LT 

(7)4 1 u\v%ymtt : m%z\£ 
x\ i*£m>m?ifi vnio -3 £ «j , 
<\&ffltxitoff>imzzi> h p- 

ttm*(4, m < v-£^<7>im-X'& 




AI*MttA*<B 




^LTZ-K^Jt^Sr-fS^ 7 
U <7M& feoT US'WWili^ 
(^ 9!<bASI— |ZS(7)7"J ct { J fcx 

&MzflBSfcA,£«fcfco 
tz £ x.\£&ft£ LT W«C* J 

<7)(i, -=£<7*£fr<7);7°P-tZ*£ffliI 
LTUS#SlJll<7)&^7'U*rVS 

z<7>fF^rfz'<«T\ at< 

tz£;i.Tv.*S*rfr«b4te7>3!g^tef 
^ft£4t£<7)$£2pJflZ^-a^ 

T«*b(z»Kr<-gWg!£x ss^^ 

"bT*#T^S L^fcs C<7)-5% 

ttfti& */p<7)£st&(i£3&LT 

^U£r>(7)rmLfrLtel^tztf 
£\ ^-ftli^Crfrlz&S'H&z.fc 

oT^£ftS;biti;*>#i\, ^ 
xm^cnr u a<*s * -r 5 >?*x* 



&s«£&#-cusiz-fc?&i\, 

<7)ift#«, Jfe£#<7) r f^jlZcfco 
TlH^T^S «t "5 IZ LA\i.a/j:v.* 

Ax.*mm$z(r)m-AmT'fo s 

#j£u-}$fcrr\ *&£«% t>£o 
X> £ o(i^r < *PWt?fc >! £A,Xb t£ 

i^mm%^-p x > h- £w*ti 
z-mmm-? o ?? i±<nw&wx\ 

- to btf£ ST*±£<7)cfc a tZ*§ 
SfFfflSrfr^ZS^'bx «frfci* 
•5 fc<7>a<3=ftT < S £#/tT^S 

#A.£fr< N Z<7)5>**— (7) 
'Cs7>ti^(7)-f^— vol, ^'J<7) 
m*^^ T UStfSWf £ ffilT I » 
ST'Lio 

¥*UZ, AM<7)l!BU7oT<7)li, 
fc < $ A<7>H«BB£CQ* -y h 7— 
?*^T'c*T^S;bW:£l?£; V- 

-3TWJt%£\.^. Z'<&m 
b(DX'Lfrti:^A,tz£teo ttiU 
c7)tz N *yh9-^l^^ — 
1©c7)3«r ib (S&& t> ofrfc L > =t 

i KmfgKmmmfitxzzj: -? 

IZ&-? ■*=>«> 7 =blt7c 



m&tztbtfb-oX^Z'ifWxnzi- 

*(£ Z*<||Rmizyp^7AT'# 

Xb, ttifi^-otz^ZAsKb 
(nti^) tzT<Mt± < SiJc7)i£T\ 
*ft(«tfc.s:A,fc<7>-rz:*<8IL^z: 
£ £fS 9 o tztzto^i "7°P ^5 

a ^jb^tsz £*«-*?# *u& fc 

^^.(^^T^fffiiz, TV<nmr> 
=t 3 iz»ttfl|it £ fc -3 fcj^gto 
£fFUrz"fZ£<7rC#SP*>y h 

7b<fFU £-tts ct a (z#sa x fc Ln 

rbsiz t><7)-r z-i^T^f^rr s 
tzhn 

^^ N £4<7>^iziijjrrskl 
f) tz s I^P^7h^ U £A 
T\ Afl!lz3«5b^-CAM<7>Jg££ 
I^SrfF'b-t+SJblto 

T'jPtfv hiiti, ^®lZ^?r 
tB^TJi^Efc^&TS,, Z*Ui 

(n$ittZ>tziibtz S4AMB, 
lin/f-y h (zgi±E^#ib-a-T 

^•bx IS^^^SlZF^fr^lfl^^ 

^ZST\ fc*>S^Plli:i^ 
fc<7)(ziis^^(«t v CotNofcS 

*(7)ftII|(Z t > h ?r^S fc(7)fc*lt 

£:£*.(& ^JEJm^r>X<Mm 
9\-t9mn*$tt. &&i£~h 

Z n it T'C7)^M £ I ^ fc CO(=t, 

mgXJEmx%: L TIHBS^jrt ^ i: 

A^^tzftttUcr IN^SO^^. -9 *\ 

tz£JLl& Affl<7)3UA,X^7 

(7)(iv ^Mc7) g <7)< ib ^S i: ^;* 

=.+ft.<b^M&htiZ£. its 
T^cT^^'ttH^Tl^Sct -5 tz^^. 

/z'jfc-rso 

^zs* < ^ntzfc^'b-r. $>s 
®T*t=t, «a*(z(«t*LTwei<7)T* 
# ^ ^ < <b \. ^m&x\ jEsttz t, <7) 



£ JLS z i: ^t*# s^^«t to* 
£'i LT^^^Zi:* < T•SS<7) 

liiffti-ctoT, ilc-i*-s|HKSt^i x 
os ';^W(7)@<7>i4b^<a^(z 

Jt^Tj&S(7){«t, $)«b«)S*lZO 
^TIOilzLcfc-^L-fcfT, M 
iS^SifiJlz A^iz 4>TtAS*>ib 

Vs |HKtLx(z(it5[ii-siHJJiv.^» 
t LTtt1infct)<7)lZ3&:S<7)A^t> 

mm, vk^tymt, t^i^tz 

%-Sftir S z i: tiT*# ^t^/c'ct 
t3o JE5t^f^i(is *Sa^O(7) 
#;L£$^(z^#f£#)S<7Mz(et^ 
l^*ftt^ AH<7)«lB6tz{«t, $> 

Sfl^fe(7)-rZ"U^ffi^^Z LT, 
h r> £ i^U-^K7)^iI(Z^)0 < 
Z^T'cSS^^'&So 

Z(7)|^I<7)^ailz^ LlfLtfx 
aS £ ij-WA £^o(Dtfb£lzte 
oTl^StfiTs ZtioT— HCO^ 

*»*^ x^*^n*tziHjiiix^iS[ 

Tcfc^C^'b'cC^PIth ^^cism 
CO^OhE^^o «fc -5 C»5C *b$M ^<7)A" 

?T, ^S^Simfc^#TL 
it o fc ^S^lt L U t if/ N'-T / \'-f 
fc* fc ^*fttz— = i »oTJS.*fc 
L^«, 1ftWztt x $tz$tz£Z 
tZT'fo, U< 'bT•tM* < ^oTt^ 
T. (5A(7)^Ll,?3?r^x.Syc(t 
T-fes **»7>ta:!WJ^<'bT*t>Ji 
O(fibtlSi:i^Z^ Z(7)(eT< 
(7)i^!t(S N • : f-7l^0fc(7)(75■^t r 7 l J 

L Z <7>i^Ut^-|^A.X' < nfcA<7)4» 

*^> ^^^ntz^^^s^p 

ATiiff5CLTt^T < ftSA^'T* 

T<mfx t=r<«5:LT(ct, zn(5 
i:'»L^zi:(i^iv U^&x it 







•ASC(X^IJ) 

I*i;£3ttflt£\ 2:ft«Lt&3 

J-a-MrSTo 

•CHR$GB[fl) 
fBcfit<7)+ +■ 7** a- K<7)+ * 

PRINT CHR$(ASC (A$)) 
PRINT LEFT$ (A$,1) 

£*=&, 'J* M tix *-#- Krfr 
<b \f> L fc5»*'J *»« -3 tz h 

7Afc 

•BIN$(M) 

fBefiS*2ii«:(zg£U "^C03t 
^5lJ£&-f 
•OCT$(M) 

(Bcfilfc 8 insect u %<nX 

•HEX$(»fit) 



A$=BIN$(255) 

£H}Tt5^ A$iz*iiiinira< 
A&o 

•INSTR(X^U1.S:^IJ2) 
3t^5U 1 0)*frb s 3t^5IJ2<7) 

PRINT INSTRCABCDE*, *C) 

T'te, *ABCDE*<7)4" C *C"(i 3 # 

S(Z*S<7)T\ 3£)WF£tl2>Z 

b LMnfrbmtMQ k&To 

im*ffi£tZ>Z£bX$Z> tz 

£pLU, 

print instr(3,*abacab\*ab') 

T*(i*ABACAB*(7> 3 3t^ I *^ «b 

fs<7)T\ stf^sna,, 

• LEFT$(S?59IJ,«Eia) 
X^IJ<7)^^ «b tMi<7MH8fc*( t 

10 A$=*ABCDEFG* 
20 PRINT LEFTS (A$,3) 

ABC 

•RIGHTS CfcmSffi) 

£& U tHTo *§:£ L fc&A<X39iJ 

* <j ecosii§?tiSo 

10 A$=*ABCDEFG° 
20 PRINT RIGHTS (A$,3) 



&ffl6|K 

EFG 

• MID$(#m#H»1,»fi2) 

2c7)^yc(t5:^?rSiU/c-ro 
t^xw)m$tiz 

10 A$=*ABCDEFG' 
20 PRINT MID$(A$,3,3) 
30 PRINT MID$(A$,6,3) 
40 PRINT MID$(A$,4) 

CDE 

FG 

DEFG 

*fci MID$(J, ^<7)£JfltZfc-3 
T<SC^fcT"#S 

• MID$CSt^Ul,»ffi1,»ffi2) = 
3t^5IJ2 

S39Um tecfift 1 ***^» 

<& 2 wx^fcifc^ij 2 (z«#^ 

*S »lil2«J:»JS?59!l2<7)fi$ 
- <7)«^3t^U 2 <7)g<* *<»li 2 

z (niw* za, tmx-mf L T 

#i\, sazmtet^ximx 
•bnSo 

10 A$=*ABCDEFG* 

20 MID$(A$,3)=*123*: PRINT AS 

30 MID$(A$,5,2)=*456* : PRINT A$ 



40 MID$(A$,6,5)=*abcde* : PRINT A$ 

^T*tH 

AB123FG 

AB1245G 

AB124ab 

•SPACES G&fil) 

•STRINGS (»fii,X^IJ) 

ia»M^fcx^j«:sro x^9U 

<nWo »J iz * -v 7 ^ ^ a - K(7)g[ 

SPACE$(10) 
STRING$(10,* ') 

ts^fc<ii|L:o • 

•STR$(^[fi) 

M££^ij«$rt3o x*# 
(i+w*^ U (z^-^-^^'ASo 

10 PRINT * • * ; STR$(10) ; * • * 
20 PRINT *-*;STR$(-10) )**' 

• 10 • 
•-10- 

•VALOt^O) 

»fi*lz-C#tt^*»£«:, ^^5iJ(7) 
^l*^»fili: *^f z: i: *<T*# 
S^^-i T**<X^5IJ ^ ^So £'l 

10 PRINT VAL(W) 
20 PRINT VAL(*1+2*) 



List 1 



List 2 



10 AS=" 

20 READ B$:1P B$="*" GOTO 50 

30 A$=A$+CHRS(VAL(B$)) 

40 GOTO 20 

50 END 

100 DATA 2, 3. 5. 7. 11, * 



List 3 



10 DIM A(S):A=1 

20 READ B$: IF B$="*" GOTO 50 

30A(A)=VAL(B$):A=A+1 

40 GOTO 20 

50 END 

100 DATA 2, 3,1 




10 DEFDBL A-Z 

20 AS="123456789012345678901234567890" 

30 B$="123456789012345678901234567890" 

40 PRINT AS 

50 PRINT SPC(15);"+" 

60 PRINT B$ 

70 PRINT SPC(15);"=" 

80 A1$=RIGHT$(AS,15) 

90 A2$=LEFTS(A$,LEN(AS)-15) 

100 B1$=RIGHT$<B$, 15) 

110 B2$=LEPT$(AS,LEN(AS)-15) 

120 e$=STR$(VAL(Al$)+VAL(BlS)) 

130C1S=RIGHTS(C$,15) 

140 C2$=LEFTS(C$,LEN(CS)-15) 

150 C$=STR$ (VAL (A2$) +VAL (B2S) +VAL (C2$) ) h 

160 PRINT C$ 
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X 

X 



(DAK 



30 PRINT VALC&H80*) 
40 PRINT VALCABC). 

100 
1 

1280 
• LENCK^IJ) 

<*-t % * hj^?^*®? ihi 
4- izgci j £• < ^ u «t n a z\n &« 

•:&££ 1 :£rf -?«*-t s 

y— Aft £XS -y +z- v %Wy- 
f-StSs fcAKPRINTSrC^: 
f -5 £ ItTttft < x 1 »f ^ 
■z>< VWr^LXfrkio 'J7 h 2 
(7) 1 ooffFfrfr «b # ^ co -y- 7 ;u - + 
>T\ M$ C&gcLfc l^^U^r 
Anx s GOSUB 1000 T-O^o 

<*c>^ST'Lfrfr£T*#ftl.\> U 
7. h 3 tJ30^r ? £ 30^ ? <7)&fiS 
(7>£^§:T£7°P?*7A §fc{it£- 
£^5IJ£LT&-?T, ^»IJLTI+ 

A$iB$i:£tl![^Ati^o 
#INSTR£l£o7cP v> KSRSfe 

*.->i>tztt)\ P*— (S^Oh 
fc* £ *\ * — #— K fr«> =i v > K 
£A*Si*-5 £#*<&*„ *"H* 
-5 1 # lilNSTR&lsH £fI*Uo fc 

500 A$=INKEY$ 

510 IF A$=" RETURN 

520 ON INSTR(*LSE',A$) GOTO 1000,2000, 

3000 

530 RETURN 

fttffcfSfc, L*-fc«H*Wri 
OOOrT, S +— ^ff-ti-lf 2000?t, E 

*-£#-ttl£300(»Ti::*ft* f ft 
fc^l\£ -? ft¥lJ£tfL,fcv.X7)T*& 



520 ON (INSTR (*LISsEe*,A$) + 1)/2 GOTO 1 
000,2000,3000 

51C«T(7)Miio INSTR(7>(f<7)2#g 
(7)X^5IJx -P * 'J 1f1"73<7)^:^ 
5U * C ** (££30 *<A o fc *§£\ 
INSTRIS'JZ^ 1 SriTfo OlU, 5 

lOWftt^ *-A7j£ftTft 
i^#(J#c:100(WtIz!RA,T*L 
£ -li £Cft$<7>T*.. #bu(-^5: 

*8&*A.-3 T l *ftl *fr if -5 * N <7)^ x 
•y?ttLTfc<'jZ^r&5 
#7 7 7-1- K7)^ISWxiS8EPOKE 

fcttfc*> 

A$=*° : FOR 1=0 TO 7 : A$=A$ + CHR$(VAL (*& 
H' + MID$ ('8040201008040201*. 1 '2+1, 
2))) : SPRITES (0)=A$ 

<z>«£ -5 ic, MIDSWcp-lzlGilJBeftL 
/c77°7-r hf-^^^T't^ 
Tfc<Ci:lZctoT, 1*fc7ct7<7) 

7 7°^< h^isii^.c'bia^c^ 

i:mW?\ % i. r> t Lfc v*»H 

T—**??V 7 -1- "J??-? ** 
"E >J tZPOKE^VPOKEfS ^ # tZ 
fclSlU.nft^yOTT*^*, fc 

£*:& 

10 CLEAR 1000,&HBFFF 

20 AD=&HC000 

30 FOR l=0 TO 5 : POKE AD+I,VAL(*&H* + 

MID$ ('3E01CD4101C9*. I * 2 + 1,2)) : NEXT I 

40 DEFUSR=&HC000 : A=USR(0) 

ft ^ (_b(7)7°P ?'7A^ilTLT 

fei«rt)*B-ib^iN(tir)o 

~255c7)|fc{ii£3i+± * - t C& 

ie5IJ»£f*o/c 1 J7h 4(7)^ 
•? ft 7°P ?=7 L.tfh-^tztTZt, 

m.*i£-otz7°n7 ; 7 Mi*) * h 5 

<7>cfc"5Cft5 

U 7 h 4 -C*C±ie^lJ<7> 2 #46(7)^ 



PRINT A (2) 

<7)«t-5tzr5(t^ U7 h 5T*(S 

PRINT ASC(MID$ (A$,2,1)) 

HtAT?>l-^ 'J* h 4T*tt 

A(3)=0 

<7)«t-5tzr%itirx U7 k 5T-ii 

MID$(A$,3)=CHR$(0) 

- n/cttT1i^tz -5 -5 ^ fc L ^ 
^(tcoiotz^^^tt^s fctx. 

n^j.zt^l.i:, U7 h 4 

FOR 1=1 TO 5 : B(l)=A(l) : NEXT 1 
l^\ U7 h 5fc^, 

B$=A$ 

%^3.t\ 1)7. h 4T1iSoTL 

t> ffl^t- «t l J tt y «w ^; = w *x 

* t it g -^T^'X ^XSlf L I. M&.* 
>3 ?rM^ tt T I vo T 15 LL ^£ 

SL^Tf^Z^ 
•CLEAR^t+^n-f (= ! 

CLEAR5:c7)^ 1 /\ 0; 7/ — ^T\ 

tSA i: # « c n^200(zl^ ? n 
■otAMs^-) :/p?*7A£#Wcbs 
Out of string space 




10 M$="MSX MAGAZINE' 
20 LOCATE 10, 10.-GOSUB 1 
\$m FOR 1=1 TO LEN(MS) 
1010 PRINT M!D$(M$, 1.1) 
1020 NEXT I 
1030 RETURN 



List 5 




10 A$=INPl)T$(l) 

20 IF AS<"a" OR A$>"z* GOTO 

30 A=ASC(AS):A$=CHR$(A-32) 

40 PRINT A$; 

50 GOTO 10 



i-izits +-9-^-7 h y xmrntr) 

m&*kM*LX&<Z£ 

Vv>^^r-f$t)^t^7°P ^7A 
X'it, -X^CLEARXfcTEttlA^fcf 
tt ^ m^SA^^ 5 'J "tz >y h ?rff 
Lfci:#feWix *r-y>7"« 

C7)fMC7)A#?ttS^S*>o RUN 

t. h y >^m^c(i=l9!iKWb$n 
>an\ &f> 7°p^'^A(7)SiiT' 

CLEAR5:?rAnTfcC-9 

^#Wt-tis CLEAR 1000T-^1 
000^^-$>c7)7 h 'J >^^^I^c 

*ts?n%. ^nx-fc, out of 

string space (7)i7- * < tti^>«t "5 
T**n(fs CLEAR 2000(I##& 
5tS4'sf, 7°P^*7Ac7^7mii^ 
T*^fS^#-^T7 r- 'J >^*^^I 

•msxc7)7 h y >?*& 
*&S£&t.^ J )<nitftt%z.? 

"E 'J-^TL 1 1 h(T>t£Uz 

ijt\ msxco7 h y >^^»ii^ 
4-u2-f-/ ^e y — ^r^tai-'fie 

^ ftM (z# < ^ S < ft § <7)T'^ 
sbX H < tt ^ fc£ X. t J'7°P ^7 
L.*iZ A$=*ABCDEFG*ft i:'^DATAS: 

■c*its«A^nT i^yn £^ij 
7 h y >^3Sd^(s^*3ft^j: 

9(-ftoTi^ i:t^^ttT\ 

mzi^x, +$fc7hy>^*^ 

IS^l^^Atzft^T<tio 
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£x, mmMff) / f-^fco 4n y^)t- fmiT'mvzttf 



h fcT^T&^T L * A. it =7 > 






10 • CHARACTER MAKING 

20 DIM A%{65> 

30 SCREEN 5: SET PAGE 0,0 

40 COLOR 15. 0,0: CLS 

50 FOR 1=0 TO 65:READ A$:A*(I)=VAL("&H"+A$):NEXT 1 

60 COPY A% TO (0,00.1 

70 OPEN "GRP:" AS #1 

80 PRESEK48. 48) :PRINT#1. "Wait a minute!" 

90 SET PAGE . 1 

100 FOR 1=1 TO 3 

110 FOR J=0 TO 31 

120 PRESET(J*8, 1*8) :PRINT#1,CHR$(I*32+J); 

130 NEXT J: NEXT I 

140 CLOSE #1 

150 COPY (0,8)-(255.31) TO (0.32) 

160LINE(0,8)-(255.31).14.BF,AND 

170 COPY (0, 32M255. 55) TO (1.8),.TPSET 

f ' GAME SET UP 
210 SET PAGE .0 

220 CLEAR 1000:DEFINT A-Z:DIM S$(24) 
230 A=RND(-TIME) 
240 RESTORE 11000 

250 FOR 1=0 TO 15:READ R.G.B:COLOR=(I. R.G.B) :NEXT I 
260 PLAY "s0m8000t200132" 
270 ON INTERVAL=6 GOSUB 3000; INTERVAL ON 
300 ' GAME START 
310 SC=0:RD=1:LI=3 
400 ' ROUND START 

410 X=29:Y=23:EX=1:EY=1:XX=0:YY=0:EC=0:DO=179 
420 CLSrGOSUB 6000 

430 M$="SCORE:"+STR$(SC):MX=16:MY=0:GOSUB 7000 
440 M$="ROUND:"+STR$(RD):MX=112:MY=0:GOSUB 7000 
450 M$="HP:"+STR$(LI):MX=192:MY=0:GOSUB 7000 
460 PLAY"o4cegedfafegbgo5c4 
470 IF PLAY(0) GOTO 470 
500 " MAIN LOOP 
510 S=STICK(0) 

520 IF S-l THEN SX=0:SY=-1:GOTO 570 
530 IF S=3 THEN SX=1:SY=0:GOTO 570 
540 IF S=5 THEN SX=0:SY=1:GOTO 570 
550 IF S=7 THEN SX=-1:SY=0:GOTO 570 
560 GOTO 700 

570 C$=MID$(S$(Y+SY). X+SX+1. 1) 
580 IF C$<>"*" THEN XX=SX;YY=SY:GOTO 620 
590 C$=MID$(S$(Y+YY), X+XX+1. 1) 
600 IF C$<>"*" GOTO 620 
610 XX=0:YY=0:GOTO 700 



CI&-5 1 ?—!**—' <-tz a 
fc£<7>T\ ^f:(i^U7>l: 

& ra® T* * fe turbo RJPM C £ r> 
TLSofco MSX2/2+T'*>T* 



W£\ Hfc* r- V >?*&£u 




itmuiiiiiiii i iiii'iiiiiriffr 




620 IF XX+YY=0 GOTO 700 
630 LINE(X*8,Y*8+8)-(X*8+7,Y*8+15).0.BF 
640 X=X+XX:Y=Y+YY 

650 IF C$="." THEN MID$(S$(Y),X+1)=" ":SC=SC+1:PLA 
Y"o6a" :MX=64:MY=0:M$=STR$(SC) :G0SUB 7000:DO=DO-1 
660 IF DO=0 GOTO 2000 
670 GOSUB 4000 

700 COPY(24,0)-(31.7),1 TO (X*8, Y*8+8) 
710 GOSUB 8000 
800 * ENEMY MOVE 

810 EC=EC+RD:IF EC<10 GOTO 1100 ELSE EC=EC-10 
820 FX=SGN(X-EX) :FY=0:GX=0:GY=SGN(Y-EY) 
830 IF FX=0 THEN FX=1 
840 IP GY=0 THEN GY=1 

850 IF ABS(X-EX)<ABS(Y-EY) THEN SWAP FX,GX:SWAP FY 
,GY 

860 HX=-FX:HY=-FY:IX=-GX:IY=-GY 
870 IF HX=-JX AND HY=-JY THEN SWAP HX. IX:SWAP HY, I 
Y 

880 IF GX=-JX AND GY=-JY THEN A=GX;GX=HX:HX=IX:IX= 
A:A=GY:GY=HY:HY=IY:IY=A 

890 IF FX=-JX AND FY=-JY THEN A=FX:FX=GX:GX=HX:HX= 
I X : I X=A : A=F Y : F Y=GY : GY=HY : HY= I Y : I Y=A 
900 C$=MID$(S$(EY+FY).EX+FX+1. 1) 
910 IP C$<>"*" THEN IX=FX:IY=FY:GOTO 980 
920 C$=MIDS(S$(EY+GY).EX+GX+1.1) 
930 IF C$<>"*" THEN IX=GX:IY=GY:GOTO 980 
940 C$=M1D$(S$(EY+HY).EX+HX+1,1) 
950 IF C$<>"*" THEN IX=HX:IY=HY:G0T0 980 
960 C$=MID$(S$(EY+IY), EX+IX+1, 1) 
970 IF C$="*" THEN IX=0:IY=0:GOTO 800 
980 IF IX+IY=0 GOTO 800 
990 IF MID$(S$(EY),EX+1,1)="." GOTO 1010 
1000 LINE(EX*8. EY*8+8)-(EX*8+7, EY*8+15), 0, BF:GOTO 
1020 

1010 COPY(8,0)-(15.7).l TO (BX*8, EY+8+8) 
1020 JX=IX:JY=IY 
1030 EX=EX+IX:EY=EY+IY 
1040 COPY(16.0)-(23,7).l TO (EX*8, EY*8+8) 
1050 GOSUB 4000 
1060 GOTO 800 
1100 " TIMING 

1110 IF IR=0 GOTO 1100 ELSE IR=0:GOTO 500 
2000 " ROUND OVER 

2010COPY(24,0)-(31,7).l TO (X*8.Y*8+8) 
2020 LINEU04. 78)-(151. 133). 0. BF 
30 MX=108:MY=94:M$="ROUND":GOSUB 7000 
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3BASC* 



m 



2040 MY=110:M$="CLEAR":GOSUB 700 

2050 PLAY"o6ecfcgcecfdgdadfdo7co6eo7co6fbgo7co6abo 

7cdefgabo8c 

2060 IF PLAY(0) GOTO 2060 

RD=RD+1:LI=LI+1 
2080 GOTO 400 

INTERVAL INTERRUPT 
3010 I R=l: RETURN 

4010 IF EXOX OR EYOY THEN RETURN 
4020 PLAY"o3cd" 

LI=L1-1 

4040 M$=STR$(LI)+" ":MX=216:MY=0:GOSUB 7000 
4050 IF L 1=0 THEN RETURN 5000 
4060 RETURN 

GAME OVER 
5010 LINE(68,82)-(187,129),0.BF 
5020 MX=92:MY=90:M$="GAME 0VER":G0SUB 7000 
5030 IF SOHS THEN HS=SC 

5040 MX=96:MY=106:M$="SCORE:"+STR$(SC):GOSUB 7000 
5050 MX=72:MY=U4:M$="HI-SCORE:"+STR$(HS):GOSUB 70 

00 

5060 PLAY"o4cbo3bo4ao3a#o4go3ao4fo3g#o4eo3go4do3f# 

o4co3fbead#gdfc#ecdolcc#c#cc# 

5070 IF INKEYSO"" GOTO 5070 

5080 IF PLAY(0) GOTO 5080 

5090 A$=INPUT$(1) 

5100 GOTO 300 

" SCREEN WRITE 

FOR 1=0 TO 240 STEP 8 
6020 COPY (0.0)-(7.7),l TO (1,8) 
6030 NEXT I 

6040 COPY (0,0)-(7,7),l TO (0,16) 
6050 COPY (0,0)-(7,7).l TO (240.16) 

FOR 1=8 TO 232 STEP 16 

COPY (8,0)-(15,7).l TO (1.16) 
6080 NEXT I 

6090 FOR 1=0 TO 240 STEP 16 
6100 COPY (0,0)-(7.7).l TO (1.24) 
6110 NEXT I 

6120 FOR 1=32 TO 176 STEP 16 
6130 COPY (0. 16)-(255, 31) TO (0. 1) 
6140 NEXT I 

6150 COPY (0, 16)-(255, 23) TO (0. 192) 
6160 COPY (0. 8)-(255, 15) TO (0, 200) 
6170 COPY (16.0)-(23.7).l TO (8.16) 
6180 COPY (24,0)-(31.7).l TO (232.192) 
6200 " MAP MAKE 

6210 S$(0)=STRING$(31. "*") :S$(24)=S$(0) 
6220 A$="*":F0R 1=1 TO 14:A$=A$+". ":NEXT 



6230 FOR 1=1 TO 23 STEP 2:S$(I)=A$:NEXT 
6240 A$="# ":FOR 1=1 TO 14:A$=A$+"* "-.NEXT 

6250 FOR 1=2 TO 22 STEP 2:S$(I)=A$:NEXT 

6260MID$(S$(23),30)=" " 

6270 'FOR 1=1 TO 100:GOSUB 1360:NEXT I 

6280 RETURN 

7000 ' WUW : MX.MY.MS 

7010 FOR 1=1 TO LEN(M$) 

7020 A=ASC(MID$(M$, I.D) 

7030 AX=(A MOD 32)*8:AY=(A¥32)*8 

7040 COPY(AX.AY)-(AX+7.AY+7),l TO (MX+ 1*8-8, MY) 

7050 NEXT I 

7060 RETURN 

8000 ' MAP MOVE 

8010 RY=RND(1)*23:A=14+(RY AND 1) 

8020 RX=RND(l)*A:RX=RX*2+2-(RY AND 1) 

8030 IF RX=X AND RY+1=Y THEN RETURN 

8040 IF RX=EX AND RY+1=EY THEN RETURN 

8050 IF MID$(S$(RY+1),RX+1.1)=" " GOTO 8090 

8060 MID$(S$(RY+1),RX+1)=" " 

8070 LINE(RX*8,RY*8+16)-(RX*8+7, RY*8+23).0, BF 

8080 RETURN 

8090 MID$(S$(RY+1).RX+1)="*" 

8100 COPY(0,0)-(7.7),1 TO (RX*8. RY*8+16) 

8110 RETURN 

0000 ' CHARACTER DATA 

0010 DATA 0020,0008. 7747. 7F77 

0020 DATA 0000. 0000. 99A0.0A9F 

0030 DATA 6600. 0066. 7754. F677 

0040 DATA 0000.0000. 8809. F099 

0050 DATA AA00.00AA.4755.667P 

0060 DATA 0000. 0000. 0888. 9F80 

0070 DATA AAA0.0AAA. 5455. 66F6 

0080 DATA 0A00.00A0.3383.8F88 

0090 DATA 050A.A060. 5055,6656 

0100 DATA 0A00. 00A0. 3033. 8908 

0110 DATA 5500.0056.0455.6645 

0120 DATA 0000.0000. 3303,8033 

0130 DATA 5500.0056.4450,5644 

0140 DATA 0000.0000.3322.2238 
10150 DATA 000A. A000. 4404. 4544 

0160 DATA 0000. 0000, 00CC.CC00 

0170 DATA 0088, 8800 

1000 " PALETTE DATA 

1010 DATA 0. 0, 0, 0, 0, 0, 0. 7. 0. 5. 0, 

1020 DATA 0.0, 4, 0,0, 7. 0.4. 6, 0.7. 7 

1030 DATA 7.0.0.7.3.0.7.6.5.6.6,3 
11040 DATA 0,4,0.6.2.5,4.4,4,7,7,7 





1 FOR A=0 TO 1:A=0:B=B+3:IF (B-1)MOD4=0 AND (B-2) 
MOD5=0 THEN PRINTB ELSE NEXT A 



-Die.,, tu^nirc, ^momm 
m\zT-nm(Dmm6&fo\z%mc 



Zn$~CZ(DZl—j—\Z-D%& 

\zjc.-DZ<nz^\izrd^m^v^o 
arcttaafc 
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MSX turbo R 

turbo R[zpmtztiti&fr\-f-CMSX-DOS2=L— tf 
MSX-DOSS0? y l&V a :/ a-JMDttflW* ffl* 




X-DOS2 

MSX turbo RIZIJMSX-DOSZ** 
a > 3 -Jl/<7>ttfl»a<ftJ!R LTU 

(ZOlNTti, MSX-D0S27J— h U 



^*fcW*5£fg^$tifc, r MSX- 
datapack turbo RK5j£rCK< /"ic? 
l> zH^-LTtfll-ftSSfcaN SI 

* * HL*(7)J: -5 £, Uv^^-tn 
£ HU COtu I- * * **<# I* X I ^ *§ 

*P.N.*{2, /\°*£T\ *A:¥BIN 




¥ C0MMAND.C0M*<7> «fc -7 tz x K 
7 -f 7*£, +T-7T-V t^ h U -«x 

<7>-£i$ wure# **§£•*>* y t 

*F.N.*t2, 77^i^^LI 
t '^^tteWiV. F5K7' 

ztv/r* U* r- •;-£«■£* 

*buf [64]*(J X 64/\'-f r-<7V\*>y 
7 7-^LSt„ 
*F.H.*{& 7r-fVWN> Y)\y(T)Z 

tX'to 

* K 7 -f ?*#-§• (1 based) * £ (i, 



^WWt&TMW^CTo 77>^ 
v a > 3 — iUDffl&Z «fc o Tli* 

t&'yrr. 

47-^x.«J7ft t-V^^K^ 
-f -faymmz «fc -o TSfc 'J * f*\ 

8 * p/\*-r h mffi-titi&fflmz 
i-fflsrr *#**<* y*T 

- V -y h fc m «l ^**B8ifc 

Xt 



x^y^bQSA 



iJ-v>y/\°— ft#RAM 

fl****^^ MSX- 

D0S22)- h U -y vT'te& fc £ < 

^RAM^T&S^P'y h^y-^-r 

7'j-77/\-^P7h tzatfn 

itt)\ turbo R|*|/&<7)MSX-DOS2 
Ti**tt<nRAmm$ti£to 4 

0^-to 1-S^^gffl 
TTo fAtiTurbo RlZ 
RAM£±8I£LT&lV7) 
T\ z:<7)iti^z4-ST*Sl##*-ti- 

*1\ Mra<7>ia**iHJiJ3L*To 
*£fBC<7)* D7H3«y-7 -y 

> f-# # RAM A<* 5 *§-£■" £ (i % 

*^rtltC7) RAM IZ ^ ^E 'J — V >y 

/<— *«flvTt*T % ?>biz±gi£ 

RAM*- h 'J *y v £ fc(2 MSX- 
D0S2*-h U -yy^lLTl^ 
5**^"Cr o *^5 -f v y - v yy < 
—7. P -y r- "^ 1^ MSX-DOS2(7) 
7-^lU ZO^ft^SZ+P/N* 
<ft. il'^C07 7 7° 1 J'7— va> 
7"P ^*v A (7) fc^ 00 64+ P /<•< 
r- iMN '-) ^T "bn?> ^ P -y h T-fo 
*H1991^ 2 ^ -§-*Sii<7)*MAP- 
MAP" H\>tt-U7? JaM. V -y / \° 

—tft'cnj: 1 [zWoHX^^-h^. 
tfLS-To 



7°7-f7lJ-7 7A-(t *|* 

1992^ 1 ftmrh 3 ^-§-T'Bi^ 
Ltz?5 : jkT\ mmz.W)%k7ihft 
Zt a L^L, y^-fv'J-T^j: 
IWy/f— «rls6-9f:«)tZ(i, ^.p 
•y r- ^33 »J «lilx V -y / \- ^Haj y 

U-Vy/\-^$^ t $ J: «J fc^ 

fe^l^^'fi^dTDOS^^-^X 'J 
7t7/U>-J'3>^a^7A 
its ^9-f7y-7y/H*S» 

{*> y^-rv'J— T'^l^V-y/\°— 

* < fs^^tzfijuST'bn*-ro 

MSX2T*li, F*g]gl(7)RAM^iiIS: 
WRAM^)l!4Sf**PI U ^(7)T\ ^ p 
>y K7>«J*JS|j?.<7)I5|ScS.jftb-rfc 

RAMA^SBE£ftTi*5*n-y h*\ 

77^7lJ-7 7 / N°-(ZS(^n S 

f 2:i^3^ turbo RT1J N *^ 
P*g/HcoRAM(i^^S(zf^^nS t 
t)\ ±ilxRAM^ROM*— h 'J 7v 

To ^ZT'turbo RF*g/g^c7)MSX- 
D0S2T-(i, ffiSt^X.SF«3llRAM 
^■7°7 -f V ij - V «y /f-USO y ^ 



T?-*;b-7*'»X 



40H 



iflJGDIVS'J-CD 



a^*-£- 



*DE=P.N. or FIB 
*HL=F.N. (if DE=FIB) 
B=^H'tt *IX=buf[64] 



A=x^-^§ 
*IX=-»-rsx>SU-©FIB 



41 H 



&a)i>hu— 0& 



*IX=»«0©x>SU-©^HiJ6! 



A=x^-^f 



42H 



ifunx>Ku-0 



*DE=P.N. or FIB 
*HL=F.N. (if DE=FIB) 
B=bo~Jb*'M*?Z>m&s biW 

•IX=T->?b-S«fcFIB 



*IX=-^-r«x>SU-OFIB 



43H 



F.H.(Z)7f-^> 



*DE=P.N. or FIB 



A=x^-§^ 



44H 



F.H.CDfl^E 



*DE=P.N. or FIB 
A=7f-?> : E-K 
B=/7o~Z7 6 :^^-rSM14, Z7 7 :if3 



A=x^-^f 
BNSffU^WJUAVWb 



45H 



F.H.CD^P-X 



b=cw;ua>kju 



A=x^-#^§ 



46H 



F.H.(Z)X»zl7 



B=?7'()i>j\y\<)\/ 



A=X^-§^ 



47H 



F.H.O^M 



B=77'()l>J\y\<)\/ 



A=x^-S*§ B=$fUUF.H. 



48H 



F.H.fr6®0B3*£U 



B=77'()\sJ\yWl> 
*DE=buf HL=A-TMR 



A=x^-H^ 



49H 



F.H/\<Z>»£&2* 



B=77--f;^V>KJb 
*DE=buf HL=A-fMR 



A=x^-#^§ 
HL=H»C»*a*nfcA-rS» 



4AH 



F.H.<D7\My$-(D 



B=77^)[; J\y\<)[; 
( »I0#S 

A= 1 ISftlfrb DE:HL=OT 



DE:HL=#fUM£P 



4BH 



TJWXl/OVfflffl 



A=y-yz77y$i;3yzi-$< 

DE=ffiCDA^*-*- 



A=x^-fi^ 
DE=fte(Z)^^ 



4CH 



F.H.0xXS 



B=y7^( ju\y\<)i 

*DE=P.N. or FIB 



00H mfcZ>77'()\s<DM& 
FFH llU^^-i'JKD^^ 



B={ 






*DE=P.N. or FIB 



A=x^H 



4EH 77-TJk -y-^x-fb 



*DE=P.N. or FIB 
•HL=«fUUF.N. 



A=x^-#^ 



7^-Ok t^'x-fb 



*DE=P.N. or FIB 
*HL=#tUUP.N. 



A=x^-W§ 






*DE=P.N. or FIB 
L=*rUV*tt (if A=l) 



A={ 



A=x^-ft^§ 

L=«4 
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/K3X-9- 



-DE=P.N. or FIB 

o Bm&mm 
amomm 

IX=UfU^iJ (if A=l) 
HL=ffUUBtt (if A=l) 



A={ 



A=x^-fS^§ 
HL=$fUUBtt 



52H 



F.H.0Bm 



B=yy^)U\y[<)i 



A=x^H 



53H 



F.\-\.(D&m(Dm 



B=F.H. *HL=$tUUF.N. 



A=x^H 



54H 



F.H.CD&W] 



B=F.H. *HL=$tUUP.N. 



A=x^H 



F.H.0iltt(7)Sli, 
mm 



B=7j"<)\sJ\yW\, 
L=§rUVltt (if A=l) 



A=x^H 

L=Htt 



57H 



F.H.0BBS(DS^ 



r o BRfomm 

I 1 BBf(Z)!££ 
IX=^fUU^iJ (if A=l) 
HL=#fUUBtt (if A=l) 



A=x^-g^f 

DE=SffUUBf£0 

HL=|ffUUBtt 



57H 



DTA0^f 



DE=7V7^£i 



5BH 



^vyy^y^yco 



B={ 



00H "CLDy-raiBa 

ffh ^ny-<m 



2jb>hx<b^hU 
-GD«fc 



B=K^-r^#^ (1 based) 
*DE=buf[64] 



A=x^-#^ 
*DE=P.N. 



5AH 



C.D.CD^i 



*DE=P.N. 



A=x^H 



5BH 



A°X£(Z)Mff 



*DE=^^-rs^:^y 



A=x^-#^§ 

♦DE^T*? 

*HL=S&03Ig(MBfi 

c=mm\<^<<ym^ (i based) 



5CH 



3WJW50>IWf 



*HL=buf[ll] 



A=0 ♦DENTr* 1 ? 
B=W$Oz>V 



5DH 



£¥®«5 






A=0 D=mmzfttt¥7^y 



5EH 



^±/j:yu^(Z)S^ 



DE=buf[64] 



A=X^-§^ 
*DE=5S£&P.N. 






B=K^f?fS^(0=2)b>S, FFH= 

±m 

n _ f 00H y'yyi/n.CDfr 

IFFH y^&nLtZtm 



A=x^— g^ 



60H 



?^p-tzX0j 



A=X^-#^ 
B=m^Plz7.0ID 



6lH 



I^P-feXCIW 



B=m^P-tz7.0ID^fc(^O 



BC=^^Piz7.0X> 
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W=*^-7*il2/X 



64H 



B5H 



6BH 



6BH 



6CH 



6DH 



6EH 



JK3X—S- 



62H l^-#^£^a*t 

7 



63H 77K-MS7JU-* 






iSM0X^-S^<D 



i^-S^CDfftE 



67H =?<<70(D7*-^J 



67H =?<<7&<EO-*—'W 



67H =r-{70(b)\^^— 



67H x-rX^CD^-Slz 



68H RAM x-f 70<Dft 



B9H 1z2$—Jty77— 

(DMD^Z 



B=#t7£>x^-^ 



DE=^tK-K^7-IU-^>CZ) 
(0000H&b(3M£) 



fife 



ifi(0000H&6l#BBO 



Ul/-*><Z)i 



*DE=buf[64] 



B=KX?W (1 based) 
A=0 



B=KX?'i^§- (1 based) 
A=fflR(l~9) 
*HL=buf DE=bum 



B=K^f:7W (1 based) 
A=FEH 



B=K^:?'^t (1 based) 
A=FFH 



( 00H iN* 
£0ftt 

FFH *££CD&i 



A=|*©fflS ffcfc 



B=S:dtr«5Ay?7HK(0&6l£Ay 



glb&U 



A=0 



A=0 



A=0 B=Mm(07yyO^Byz]— h 



A=0 B=WRZWCdtSS 
•DE=x5-**yte— 2> 



A=X5— Wl 



A=x^-S^ 



A=x^-|f^ 



A=x^-S^ 



A=x^-^§ 
B=RAMxVX^(D^$ts 



6ah mm^-tyvno 

%z 



m 



wm&oM& 



mucomm 






\<D 



6FH MSX-DOS0A 

-vaym^comm 






B:D=li®v * 
based) 
B:D=xxOOH 

B:D=0000H t^ZMDMls 
B:D=xxffH M^Z 



K.3 <:?**(! 



*DE=buf B=bufJ 



*HL=«lu *DE=1 



*HL=buf[255] 



Kl based) 



a=o mm 

A=K B=00H 
A=K B=FFH 



:Wfe 



A=0 (Mlk 1 (H3E) 
B=SfUvRJi (if A=l) 



A=x^-§*f 

B=A»^7-a 



D^HK^-f^^td based) 



A=i^-S^ 

*DE=mmmm(Dm 



A=x^-H^ 



A=x^-^§ 
*HL=^£38©S]iu 



A=x^-fHf 

B=y £ ^7ommm 



a=x^-ih§ 

BC=ROM0A-ya> 
DE=tV7^(DA-^3> 



A=x^-#^ B=7L(DV(M 
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MSX^^VHffMHE 




7±>75 



^ttMSXCD^-f7-BDa«WillB*fi|fflUr,PSG* 




l»£fofcf&1 



^HKiPSGtzJ; &fij (J iA<fr£*lJ 

#Sfo -?£'). RSbLrclx^i 
^ta^ £ *15 «fc -5 fz h - > v x * 

^-*-iz7*-*£##^t\ 

IS b L fcl M$IBJ£( mo £ 1 x -5 ft 

K>yi^ U-^-lz^Pt^r 
SgfeS-t*-**!^^^ 9 tz L £ 
fo PSG(7) h — >vx^-U — ^~ 
(J* *??— y4<7)-7<7)^£££ 
£-tf3*§-£-<7) h->JI]$£kliO 
FEHfcU-5 j;^ [Zs ^.^pt-»i:(- 
h - >!]«#>* i ■? T I x g f g 
zint-- >mmti.ffltfrh$t>b 
tz t) s ^Uka+r- > -f)\,-fu 75 A 
COd: ^ tZ s 01C~08BtZftj£-f 3 

i-5 C* *>J -tzAI#tz*gj|fc Ifc 



-^(z^wg $ & * 1 > h r -2) -fi 

SfeTf. MSX<7)?-f^-SlJ»J&# 

tJ60^<7) 1 #z:*£ tz#g£ l * f „ 

^I'il 7>HlZ3600|I]Sl] y iA^- 
A^±1"S<7)T\ 3600£j£HLfc 
WF >#TflJft(& 4 7>&£F<7)£ 

$ ASMr U £ To tztz. Sfx >jH 

1 20& b 30, t- > * 1 50fc b 24T' 
to ZtlA^tKH^^'b 
Z (ft^k tt^ftfc b 4 te<n« $ 
£ ix^ - £ tz^S^ttTfo fcfc* 
L t- >yf- 1 20<7)if^( * N 8 ##&*< 
15tt<7)T\ 16^^^(iZ.CD^^7) 
7.5££^Sgg[L*r&;tfclxV«> 
>l§T1J16^ft£>|i#T'# 1:1+ 
A*, Zl<7)*&^(i1Ielgtt8 % 2 
i(i7£l^<fc-5lz % ^g^_^ 
T1figL£l-mHXxlt£-ti-A, 

h->vi*U-?-tZi££LT, 
*J »J &frWfrfr%fi:Vlz&$ *M 
b U Z ti# tz ft £ g= Ti^T (£, 



s^i^dcd; 5\ico*-©rtB 



*7t-yh 







3~4 



f--f >*JUD f-v»>^;UA = 0, f--fr>*;UB=1 x ^*>*JI/C = 2 






^ft^O > h-r*fc»(7)*'7>^ — 



to *LT^$#0lZfc*U& Sfc 
<7>^£Bft b-frtiX xl xfr ttT'To 

it>^uyP^7A^MT < tz 
$lx ZfttJ, ®S(ZMSX(7)3t^ 

rtT'PSGc7»i£fcT^£>1§ 

BGMDRVfr b#} I: 5 ;U— ?■ > 

tli>BGMK7</\*— T*fo Z<7)\>' 
^-('■t— TiZT *>*){, Z'tlZS 
J<^ KD/\'777-^,fU f 1 

<T>T Yls*$:JiO> \-TZtzlfxn 
r 7—?x.*)Tt Lxm^zto 

W£itZ>9- J r>l , -)l>(D;<'y7T — 

£?Z (n=f- * >^ JUW06lT f — 
^ #f££ $ tiX l ^ -5 A* £* -5 * x £H 
^T> I^$nxix/j:(j-tLli'RET 
T'^TLiTo ^^^nTlx^tf 

tttx'<777- <7) + 5/N*-T h@C7) 

^^^ f 7>^-^U-i:o^bLS 
To fLTZti^Ott^Wn 



#il b titz&Z tzim W&t>-oT 
\.^&\.^Z£\,Zt£%><nT'Z<r)££%k 
TLSto OT'^ntS; 4-iT-qft 
b L X tAf £ *^<7)5fe(^#%Ji b 

*%&-mu zaym&zsmrz 

h - >&)&&* DRVDAT^ b #sb 

fz##iA^s-r o ^CJHIMX 
LiTA\ ^-[i](ix>^p-7 p ^ 
^fflLTix^/c^ ^M\s*S*9 
-\z\tem£%&tm$iz, x> 

•9(ZLSTo «^(ZC<7)^Pg«r^ 
<7)< blxPlbLTlx^^^^gx 

— ?£fK<&ttlU z:tiVx*'y77 

-(7)^^73 r 7>^-(Z-b-y h LT 

z> tz V tz N :;t-t?7hL rc^g 

75'7>^-^^[LTlx# N -- 
# C*« * T'-tz >y h L fc^Pg^r 
B.|bL^(t^)^ttT*-r o 




5 s — 5^(DF*g§ 



» H 





120 


150 


O 


120 


96 


J 


60 


48 


j 


30 


24 


^ 


15 


12 



255 

^^ifef7zi-K 

me 



^ ttft 

1-96 OlC-OBBC^BS-rS 



100 



MjflOTSE 






ay a 


*€GSfflLfcBGM K5-f/<- 




BIOS, 7 -j ? ©£8 




WRTPSG 


£00 


0093H 


;P SGUi>X$'-'\©7 : '-*©#£:&# 


CHPUT 


EQU 


00A2H 


. 1 £*** 


H.TIMI 


EOU 


0FD9FH 


\~tnr9—'MViL»-7v9 




*\W&1£. 






LD 


E. 101 1 1 00 B 


;?'*->:& Jfr-A, B. C© h-v£:*>lcT5 




LD 


A. 7 






CALL 


WRTPSG 






LD 


E. 00H 


iiv^D-yHIISfflKS; 




LD 


A. 11 






CALL 


WRTPSG 






ID 


E, 80H 






LD 


A. 12 






CALL 


WRTPSG 






Dl 




;9iy£#7;/7ICBGM K5-f /<-£t£8ST S 




LD 


A. 0C3H 






LD 


HL. BGMDRV 






LD 


(H.TIMI+OJ.A 






LD 


(H.TIMI + D.Hl 






El 








>-fv 


iu— ?y 




MAIN: 


LD 


A.'M" 


;'msx •©s^jijfcajTjT* 




CALL 


CHPUT 






LD 


A. "S" 






CALL 


CHPUT 






ID 


A. "X" 






CALL 


CHPUT 






ID 


A.' ' 






CALL 


CHPUT 






JP 


MAIN 


; SSBg;U-7" 



*-f7- 



BGMDRV: LD 
CALL 
LD 

CALL 
LD 
CALL 
RET 



y + v* .it- A ©35544a 

y* v*;i/c©;nsaa 



IX. CH_A 
DRVO 
IX, CH_B 
DRVO 
IX. CH_C 
DRVO 



;c©y + >*;Kc?'-5'*<iftS:$tiri»s*\ 



DEC 
RET 

LD 
LD 
LD 
CP 
JP 
OR 
JP 



A. (IX+1) 
(IX+2) 



(IX+5) 

n 

L. (IX+3) 

H. (IX+4) 

A. (HL) 

255 

Z. DRV4 

A 

Z. DRV2 



; JS^SftTC^l^ei 



; OTJ&l^dnoiSfcy 



;HL=?-#7I<I/X*'5y*- 



; JI/-7>? 



; ttftfr? 






DEC 

ADD 

LD 

LD 

LD 

ADD 

LD 

ADD 

LD 

CALL 

INC 

INC 

LD 

CALL 

LD 

ADD 

LD 



A 
A. A 

D. 
E.A 

HL. DRVDAT 
HL. DE 

A. (IX+0) 
A. A 

E. (HL) 
WRTPSG 
HL 

A 

E. (HL) 

WRTPSG 

A. (IX+O) 
A. 8 
E. 16 



H L=*£i££ 



3tlTl>-5 7- h'U* 






CALL 

LD 
LD 
CALL 
JP 



WRTPSG 

E. 
A. 13 
WRTPSG 
DRV3 



:xv<ci-7«JB£#§&t; (l-'J«-*W5) 



*^©iatt«*50(CT5 



LD 
LD 
ADD 
CALL 



E. 

A. (IX+0) 
A. 8 
WRTPSG 



l^-OICTS 



fST r -**8i!#aiivT/'<w'7 7--icteirtu t KuxA^v^-^esi-r* 



; -t fix -*«•!£* a -r 



LD L. (IX+3) 

LD H. (IX+4) 

INC HI 

LD A. (HL) 

LD (IX+5). A 

INC HL 

LD (IX+3) . L :x'-*7'KUa + J9VS'-*!eSfOT«lrtT§ 

LD (IX+4) . H 

RET 

)\i— yotft. T-5T KU7.+J9 »-S^J- Y7 KUXICfS 

LD L. (IX+1) 

ID H. (IX+2) 

LD (IX+3). L 

LD (IX+4) . H 

JP DRV1 

#e^ffltfcl/i>X*-(C»ai2 ! Cfc«!>©*Br'-5' 



DRVDAT: DW 3421. 3228. 3047. 2876. 2715. 2562. 2419. 2283. 2155, 2034. 
DW 1711. 1614. 1524. 1438. 1358. 1281. 1210. 1142. 1078, 1017. 



855. 
428. 
214. 
107. 

53. 

27. 



807. 
404. 
202. 
101. 

50. 

25. 



762. 
381. 
190. 
95. 



719. 
360. 
180. 

90. 

45. 

22. 



679, 
339. 
170, 

85. 

42. 

21. 



641. 
320, 
160. 

80. 

40. 

20. 



605. 
302. 
151. 

76. 

38. 

19. 



571. 
285. 
143. 

71. 

36. 

18. 



539. 
269, 
135. 

67. 

34. 

17. 



509. 
254. 
127. 

64. 

32. 

16. 



1920. 
960, 
480. 
240. 
120. 

60. 

30. 

15. 



453 
227 
113 
57 
28 
14 



x-e >WAO/<5i77- 



DB ;sF-fV*JU D (x -v ># l\, A Tr&S C tSipt ) 

DW DAT A i;**?-*:**- V7 KU* 

DW DAT A :3t*7'-$'©7' h'UXfc+j? V I- 1 5 tzthOj^-j 7 r - 

DB 1 igfiSA'Jyl-tJfcftflA'^r- 

x-e V#JUB©/«y "7 r — 

DB I ;9W** I D (y-t-y^BTaoSCifc^-f) 

DW DAT_B ijUSt'-*';**- r-7 - KU* 

DW DAT_B :;■»*?'- S'©/' K U * £ 7j r> > Ft5fcj6ffl/i.j77- 

DB 1 itSSA'JVhfSfcfeCA'^r- 

x + y*K<Ort*7r- 

DB 2 ;y+ V*JU D (9 1 * >*JUC "(:3d S C ££*1") 

DW DAT_C ;lf7-JXJ-|-7KI/X 

DW DAT C ;3!*T'-*'©r KL-^**9V l-f 5t«i©'^^77- 

DB 1 ;t*«ft')V ht"4fc«!>©/<^ 7r- 

?♦>.#«. A St*-?'-* 

DB 58. 24. 56. 24. 54.24. 53. 24 

DB 46. 48.48. 24. 51. 24 

DB 49.96 

DB 255 

x + V^JI/BjUUf-* 

DB 54. 24. 53.24.49.24. 49. 24 

DB 42.48. 44.24.48.24 

DB 44.96 

DB 255 



DAT C: 



DB 49 

DB 1 

DB 1 

DB 20 

D8 20 

DB 13 

DB 13 

OB 13 

DB 13 

DB 25 

END 



.24.49. 

. 18. 

. 18. 
.8.20. 
.8.20. 

. 13. 
.8. 13. 
.8. 13. 
.24 
5 



24.46.24.44.24 

1.30.8 

.30.8 

.32.8 

1.32.8 

i. 25. 8 

1.25.8 

1.25.8 



:05A4G4F4E4 

:<A2B4>D4 

:C1 



:05F4E4C4C4 
;<F2G4B4 
:G1 
\>\,--t 



;05C4C4<A4G< 

:02(FF>F|4 

;02|FF>F)4 

;02 1GG>0)4 

;02{GG>G)4 

;02{COC}4 

;02|COC}4 

:02{COC}4 

;02C4 

:;u-7" 
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BHSSHWI 






WziKvW-h'a 




?=? 7 -r -y ? 7-JucoMfFfe^ 
HIT- 3 HI a t£o 3*R IzibtzZfk 

fc * #s tz ^® tj j fc*^x. ft** 
*EWttfe< 

^ # ft U fc* (7 £*4-[I]C0+J- > 7°;U 

7°p ?=7 a fcifriHii^^z co t i t* 
lJ^Tf£::£*J-e#fti\, 3/1 

■§■£ 4£-§-<07°P;7*7A£^C0 
7°P 2*7 A £ te£-f ^Ci A*'j&£ 

^•5 )otTi: 3 £-§-£ 4 £-§-(7)7° 
P?* ; 7A£Ay7LTv-vLT& 
SA(J, ft/l^i;^lT^7> 
fcv-yLii Z1i<nK\tff 

4£-^£#BBLTt>bWcl\> 

£ X 7°P 7 s ? ACO V- vC0l£(2 
Ztl< b^tzLTfr^T*M(zA 
^i 4-HKiii.^$iJ#+co^7 7 

-tittfcBTl^Afc^fcf^? 
lf£\ MSXC07.^'J-> I E-K5 
T'lS 51 2fe+ 1 6fe**^^ pTtl^o^- 
[U-fWAPA^/NV-y h«tg(*-ti 
^l|Jl-r§rc«6cofcco/c te? fc 



<7>T*-f*?^<7yfe— 7\ P— K« 

ft &4-HJCD 7°P ^?A^ ^frf * 
fc«)H(i3, 4£-§-lZ*fi£c07°P 

— (Z#^T&£R, G, BC05: 
^(7)^(7) *<•£ *>*col&§-£? U -y 

tzr-tZT-fXHz-t-y'Ltz 

y» u-YUzvr%mm.tz y 

-x—OO K— *rbxy *?£ 
'MAstzhiz— y\ p— Fcnt'hh 
rfr£WL<fc7o ^co&£7W 
;u-££A*-rftl£*-4--£ J 
fc 7 T-r" ;u£ iz ( j g I&ittiz&SiR 1 

*.sc5*A<f«Ktin^<bn%o 
$ t 7°p ^*7 i±(nmmtzt)\ 

4000ft*; lb 4380fr * T*£v \° U -y 
r- miL SOOOfr/r b 536(Wt * T0" 

>tz i^tifc1730ff*TbP — * 
£ft-5> i¥L<JH^<-C*fci*A«, 
3£-§-£ 4^-§-co'J^ hfcH&lz 

400O?TrfP b 4380fr * X- « / \° U 
•y h^I;U-5 L >rz*o 
4000—4150 '<U?h&4>¥ 

*l£CO 73-7 iWhftMfr b / n° U 
, y h ^-T > K-fcB3 < W&l&bs 



'i 

U 
1 



100 _RAMDISK(0) :_RAMDISK (4096) 

1 10 SCREEN 5 

120 FOR 1=0 TO 100 

130 X=INT (RND (1) *256) :Y=INT (RND (1) *212) 

140 LINE (128, 106)- (X. Y) : NEXT 

1 50 COPY (0. 0) - (255, 21 1 ) , TO (0, 0) , 1 

160 CLS 

170 COPY (0, 0)- (255, 211). 1 TO (0, 0) , 

180 IF VDP(-2)AND1 THEN 180 

190 BSAVE "H:A", 0, 27135. S 

200 CLS:BLOAD"H:A". S 

210 GOTO 210 



> K-<7tf£K{J*#tfiiza-7;u 
<7X£»z.ftS(7lx£\ (i^WTJ: 
•5ft*&tt«JELTl^o *fc9 
*f > K— fc^TafctfXzIi® 

4160 — 4290 '<l"y \- jtj >)\, 

UtifcTZJemZfTtj: 1 o 41 2(Wt^ 
feS-^-^^M^^ft ifrt'o t/\ 

418MT#}|:££ftrcfe<7>/\V-y h 
3. tz Hfig<7)/ N°U-y h^M(i4280 

4300-4350 E$IJ!S0f 

C<7)7°P?*7AT'ti/\V-y hCO 

t^^ie^ypRO. PGO, pb()(z 

<££ L T fc < z i: tf>smtz Z Z 
-PttyfU-y h^I5tz£fcfti\ ie 
5iJ(7)rt^^^HrLT^i. 
4370—4380 ^N°U<y KH7 

- i-7-f > K-^-f->lZM-S>o 
RETURN+^r#-^-(7)S^(i7fe^ CO 

500(«t WK (i x -f * ? A tU 7J 
JU-7^>rc 
5000 ®®C0f*^ 

M® ^— M® i ?> z i: U^— v 
(zf*#1-^>o xV^^x^-ft^ 

T'7°P ?7 A*<jJi J o T L i -3 /c 

5010—5050 7'f>F-*-7' 
>1 
-b-7's P.— F4flHR**9-f 

> K— *W < o 7?-;*(i^V >y h 7 
<>K-cotf^^(5(?|5]i:o 
5060—5120 -fe-7\ P-Ki| 



n-roy&m&WlTZo -tz-7 
ft b , p - K ft b 1 *<S3B[SLlz 

5130—5140 TjXft&l' 
y-zi — O-O F—)U—?->lZ 



5150—5200 'y-'f > K-5J--7 

7 7-r ;u*— A 1- A77T * 7 -f 

5210—5270 77"f^^A77 

INKEY$KHBc£te^T*-#- 
K^b7 7"f;U^— A?rAy7L N 
^BtF$(z1S#r4o ^'-y^^.^- 

5280 #1iiKS^ 

^^SL^#BaLT-tz-7*, P- 
K^n-^'nco^-^ > %■ p — ;u„ 
5290—5330 P- K 

7 7-OU*-AF$£*IJfflLT 

7=-*-^ %■ P - Kb * 7c; W >y h £ 

*7J^bf •& Tz «0 (Z VRAMCO/ \° U -y 

h7"-7-ib^b/NV>y htPg^rl^ 

5340—5360 -fe-7' 

7 7-r^^-AF$^^IJfflLT 
7*— ^^-fe— 7*o 534&(tCO^;II 
« x turbo RT-RAMt-V ^^^ 

fflLrcif^coiM-(miE)o 

S TlS^fc Aft b^ 5345^** S C 
#<^f^7o CftlSturbo RC07C 

*ocoiQtftcorc 

i^# ft U tz *<COPY^^-ti msx 
COVDPt l> 3 LSKZ$IJ$]£ J ^-H; 
Tl^^o CPlKiVDPtZll@ICOPfc° 
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pffiOGlAMHOUSE 



u 

7. 
h 



4000 XI=X+8:IF X1>1 20 THEN X1=120 

4010 Y1=Y+8:IF Y1>170 THEN Y 1 = 1 70 

4020 COPY (XI, Y1)- (XI + 131 . Yl +19) TO (0,1 

01). 1 

4030 LINE (XI, Yl) -(XI + 131, Yl + 19) , 1. BF 

4040 LINE (XI. Yl) -(XI + 131, Yl + 19) . 15, B 

4070 FOR J=0 TO 15 

4080 LINE(X1+2+J*8, Y1 + 10) - (X1 +8+J*8. Y1 + 1 

6) , 1 5. B 

4090 LINE(X1+3+J*8, Yl + 1 1) - (XI +7 + J*8, Yl +1 

5) , J, BF 

4100 NEXT J:CC=0 

4150 LINE (XI +2+CC*8, Yl +10) - (XI +8+CC*8, Yl 

+ 16), 8. B 

4160 PSET(X1+2. Y1+2). 1 

4170 PRINT #1, "R<";CHR$ (48+PR (CC) ) ; "> G< 

":CHR$ (48+PG(CC)) ;"> B<";CHR$ (48+PB (CC) ) 

: ">" 

4175 IF STRIG(0) +STRIG(1) THEN 4175 

4 1 80 GOSUB 1 1 00 

4190 IF (STRIG(3)=-U OR ( (PEEK (&HFBEC) 

AND 4) =0) THEN 4370 

4200 IF STRIG(0) +STRIG(1) =0 THEN 4180 

4210 IF X<X1+2 OR X>X1+128 OR Y<Y1+10 OR 

Y>Y1+16 THEN 4240 
4220 LINE(X1+2+CC*8. Yl +10) - (X1+8+CC*8, Yl 
+ 16), 15, B 

4230 CC=(X-X1)¥8:GOTO 4150 
4240 IF X<X1+10 OR X>X1+130 OR Y<Y1+2 OR 

Y>Y1+9 THEN 4180 
4250 XC=(X-X1) ¥8 

4260 ON XC GOSUB 4300,4360,4310,4360.436 
0. 4320, 4360, 4330. 4360, 4360. 4340, 4360, 435 



4270 PR (CC) =PR (CC) AND 

ND 7:PB(CC)=PB(CC) AND 

4280 COLOR= (CC, PR (CC) , PG (CC) 

4290 GOTO 4160 

4300 PR(CC)=PR(CC)-1 

4310 PR(CC)=PR(CC)+1 

4320 PG(CC)=PG(CC)-1 

4330 PG(CC)=PG(CC)+1 

4340 PB(CC)=PB(CC)-1 

4350 PB(CC) =PB(CC)+1 

4360 RETURN 

4370 COPY(0, 101) -(131, 120), 1 TO (XI, Yl), 

4380 RETURN 1630 

5000 GOSUB 1 750: COPY (0, 0) -(255. 21 1 ) . TO 

(0. 0) , 3 
5002 IF X+6>176 THEN XI =1 76 ELSE X1=X+6 
5005 IF Y+6>192 THEN Yl =192 ELSE Y1=Y+6 
5010 COPY (XI . Yl ) - (XI +79, Yl + 1 5) . TO (0, 



7:PG(CC) =PG(CC) 
7 

PB (CC) ) 

RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 



101). 1 

5020 LINE (XI. Yl) - (XI +79. Yl + 1 5) . DBF 
5030 LINE (XI. Yl) - (XI +79. Y1+15) . 15, B 
5040 PSET(X1+4, Y1+5), 1 :PRINT #1. "t-7* 0- 

r " 

5050 LINE (XI +3, Yl +4) -(XI +39, Y1 + 12). 4, BF. 

XOR:SL=0 

5060 GOSUB 1100: IF STRIG (0) +STRIG (1) THE 

N 5150 

5070 IF (STRIG (3) =-1) OR ( (PEEK (&HFBEC) 

AND 4)=0) THEN 5130 

5080 IF (X1+3>X) OR (X1+74<X) OR (Y1+4>Y 

) OR (Y1 + 12<Y) THEN 5060 

5090 S2=(X-X1-3) ¥36: IF SL=S2 THEN 5060 

51 00 LINE (XI +3+SL*36, Yl +4) - (XI +39+SL*36, 

Y1 + 12). 4. BF, XOR 

51 10 LINE (X1+3+S2*36, Y1+4) - (XI +39+S2*36, 

Y1 + 12), 4. BF, XOR 

5120 SL=S2:GOTO 5060 

5130 COPY (0, 101) -(79, 116), 1 TO (XI, Yl) 

5140 RETURN 1530 

5150 IF X+6>120 THEN X2=120 ELSE X2=X+6 

5160 IF Y+6>176 THEN Y2=176 ELSE Y2=Y+6 

5 1 70 COPY (X2. Y2) - (X2+ 1 35, Y2+ 1 5) , TO (0. 

121). 1 

5180 LINE(X2. Y2) -(X2+135, Y2+15), 1, BF 

5190 LINE(X2, Y2)-(X2+135. Y2+15). 1 5. B 

5200 PSET(X2+4, Y2+4), 1 :PRINT #1."7r-f**-A 

>" 

5210 IF INKEY$<>"" THEN 5210 

5220 F$="":P=0 

5230 A$=INKEY$:IF A$="" THEN 5230 

5240 IF A$=CHR$(8) AND P<>0 THEN PSET (X2 

+60+P*8. Y2+4). 1 : PRINT #1." " : P=P-1 : F$=LE 

FT$ (F$. P) :GOTO 5230 

5250 IF A$=CHR$(13) THEN 5280 

5260 IF P<>8 AND A$> M " THEN PSET(X2+68+ 

P*8, Y2+4), 1 :PRINT #1, A$ :P = P+1 :F$=F$+A$ 

5270 GOTO 5230 

5280 F$=F$ + ". SC5":ON SL+1 GOSUB 5340,529 

0: RETURN 1530 

5290 BLOAD F$, S, 0:COLOR=RESTORE 

5300 FOR 1=0 TO 15 

5310 A=VPEEK(&H7680+I*2) : B=VPEEK (&H7680+ 

1*2+1) 

5320 PR (I) =A¥16:PB(I)=A MOD 16:PG(I)=B 

5330 NEXT I: RETURN 

5340 COPY (0, 0) - (255, 21 1 ) . 3 TO (0, 0) , 

5345 IF VDP(-2)AND1 THEN 5345 

5350 BSAVE F$, 0, &H769F, S 

5360 RETURN 
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i^mtm^-Vi 




10 • 1992 VOL.2 r **<•*.&•*. j LIST A 

20 ' PRESENTED BY YOSH10 IGARASHI 

30 ' SETT I NG :::::::::::::::::::::::: 

40 CLEAR200,&HCFFF:DEF1NTA-Z 

50 DEFFND=VALC"&H"+MID$CA$, J*2+l , 2 ) ) : DEF 

FNAC X )=PEEKC &HD088+X ) 

S0 SCREEN5 ,3.0: FOR I =3TO0STEP- 1 : SETPAGE . 1 

: COLOR 15.0,0: CLS : NEXT 

70 COLOR=C 3 .0.0.7): COLOR=C 4 .0,0.0): COLOR 

=< 5 , , , ) : COLOR=C 7 ,7,0.0) 

80 FORI=0TO7:COLOR=C8+I .1.1.1 ):NEXT 

90 ' DATA READ :::::::::::::::::::::: 

100 FOR I =0TO75: READAS. B$:A=0:FORJ=0TO31 : 

POKE&HD4D0+ I *32+J . FND : A=C A+FND )MOD25G 

110 NEXTJ: IFVALC"&H"+BS)=ATHENNEXTELSESC 

REEN0: BEEP: PR INT "ERROR IN"; 1*10+9 10: END 

120 FOR 1 =0TO5 : READAS : FORJ=0TO3 1 : POKE&HD0 

50+ 1*32+ J. FND: NEXT J, I 

130 FORI=0TO1 : READAS : FORJ=0TO63 : P0KE&HD4 

00+l*64+J,ASCCMID$CAS, J+l , 1)): NEXTJ. 1 

140 FORI=0TO3:POKE&HD3F0+I , VALCMI DSC "040 

2FCFE", 1*2+1 ,2)):NExT 

150 ' WALL PATTERN SET ::::::::::::::: 

160 SETPAGE3,3:FORI=0TO5:LINEC242+1 ,0)-C 

242+1.2 1 1 ). 15-1 :FORJ=0TO63 

170 PSETC 242 + 1 . RNDC 1 )*2 1 1 ), 14-1 : NEXTJ , I: 

COPYC247.0)-C24G,2 1 1 )TOC 248.0) 

180 COPYC 248, 0)-C 248. 2 1 1 )T0C249 , ) :COPYC 

248.0)-C249,2 1 1 )TOC 250.0) 

190 FORI=0TO1 :FORJ=0TO47:PSETC250+I ,RNDC 

1)*21 1), 8 :NEXTJ, I :SETPAGE2,2:FORI=0TO5 

200 LINEC0, 128+1 )-C255, 128+1 ). 15- I :FORJ= 

0TO127: PSETC RNDC 1)*255. 128+1 ). 14-1 

2 10 NEXTJ, I :COPYC0. 133)-C255, 132)TOC0. 13 

4) -COPYC 0. 134)-C255, 1 34 )TOC0 . 135 ) 

220 COPYC0. 134)-C255, 135)TOC0, 136):FORI= 

0TO1 :FORJ=0TO95: PSETC RNDC 1 )*255. 136+1). 8 

: NEXTJ. I 

230 ' WALL PATTERN 3D CHANGE ::::::::: 

240 FOR I = 1 TO 1 1 : A=RNDC - 1 ) : FORJ=FNAC I - 1 )TO 

FNAC I )-l 

250 A=RNOC 1 )*127:COPYCA+FNAC 1-1 ), 127+1 )- 

CA+127-FNAC 1-1 ), 127+1 ),2TOCFNAC 1~1 ), J) 

260 COPYCA+FNAC 1-1 ), 127+1 )-C A+127-FNAC I- 

1 ). 127+1 ),2TOCFNAC 1-1 ), 127-J): NEXTJ 

270 A=RNDC-1 ):FORJ=FNAC 1-1 )TOFNAC I )-2 

280 A=RNDC 1 )*84: C0PYC241+1 . A+FNAC 1 )+l )-C 

241+1 .A+126-FNAC I ) ) , 3TO< J . FNAC 1 )+l ) 

290 C0PYC241+I .A+FNAC I )+l )-C241+l . A+126- 

FNAC I )).3TOC 127-J, FNAC I )+l ): NEXTJ . 1 

300 F0RI = 1T01 1:A=RNDC-1 ):FORJ=FNAC I-l)TO 

FNAC 1)-1 

310 A=RNDC 1 )*127:COPYCA+J+l, 127+1 )-CA+12 

6-J, 127+1), 2TOC129+J. J) 

320 COPYCA+J+1 . 127 + 1 )-CA+126-J, 127 + 1 ),2T 

OC 129+J, 127-J): NEXTJ 

330 A=RNDC-1 ):FORJ=FNAC 1-1 )TOFNAC I )-l 

340 A=RNDC 1 )*84:COPYC241 + l , A+J+l )-C241 + I 

.A+126-J).3TOC 128+J.J+l) 

350 COPYC 241+1 , A+J+l )-C241+l ,A+126-J).3T 

OC255-J. J+l): NEXTJ 

360 L1NECFNACI),FNAC1))-CFNAC I ). 127-FNAC 

I )).0 

370 LI NEC 127-FNAC 1 ),FNACI ))-C 127-FNAC 1 ), 

127-FNAC I )),0: NEXT I 

380 FORI=1TO11:X=PEEKC&HD098+I*4):Y=PEEK 

C &HD09 A+ 1 *4 ) : P=PEEKC &HD09B+ 1 *4 ) 

390 COPYCFNAC I ).0)-C 127-FNAC I). 127).2TOC 

X.Y).P:SETPAGEP.P 

400 LINECX.FNACI)+Y)-CX+127-FNACI)-FNAC 1 

). 127-FNAC1 )+Y).0.BF 



410 FORJ=FNACI )TO 127-FNAC I ): A=RNDC 1 )*84 

420 C0PYC241+1 ,FNAC1)+A+1)-<241+I,A+126- 

FNAC I )).3T0CX+J-FNACI).FNAC I )+l+Y).P 

430 NEXTJ, I :COPYC0,84)-C255,21 1 ). 1T0"SAR 

-GRP1 .GR5" 

440 COPYC 0.0 )-C 255. 1 27 ) , 2T0"SAR-GRP2 . GR5 

" : COPYC ,0)-C255.127), 3TO"SAR-GRP3 . GR5 " 

450 BSAVE "SAR-MACH .BIN", &HD050 . &HDE37 

460 ' SPRITE PATTERN MAKE ::::::::::: 

470 SCREEN2 : COLOR 15.0.0: CLS : COLOR=C ,3.3 

.3) 

480 A=24: GOSUB770 : GOSUB780 : GOSUB790 : FOR 1 

=-2T02 

490 FORJ=ABSC I )¥2TOABSC I )¥2+l :LINEC45 + I . 

50+J)-C43+I ,68+J). 1 :LINE-C40+I ,75+J). 1 

500 LINE-C38+I ,78+J). 1 :LINE-C36+I ,80+J). 

1 :LINE-C29+I ,83+J). 1 

510 LI NEC 20+ 1 ,8S-J)-C7+I ,89-J). 1 :L1NE-C4 

+1 ,91-J). 1 :LINE-C2+I ,93-J). 1 : NEXTJ , 1 

520 GOSUB800 : A=72 : GOSUB770 : GOSUB780 : GOSU 

B790 

530 FORI=-2T02:FORJ=ABSC I )¥2TOABSC 1 )¥2+l 

:L1NEC93+I ,93-J)-C88+I ,91-J). 1 

540 L1NE-C86+I .89-J). 1 :LINE-C84+I .88-J). 

1 :LINE-C77+I .86-J), 1 

550 LINEC68+I ,86-J)-C58+I ,89-J), 1 :LINE-C 

56+1 ,91-J). 1:LINE-C55+I ,93-J), 1 : NEXTJ . 1 

560 GOSUB800:FORI=-2TO2:FORJ=ABSCI )¥2TOA 

BSC I )¥2+l 

570 LI NEC 135 + 1 , 65+J )-C 133+1 , 73+J ) , 1 : LINE 

-C 130+1, 77+J), 1 

580 LINE-C 128+1 ,79+J), 1 -.LINE-C 126+1 ,81+J 

). 1: LINE-C 1 19+1 ,83+J ), 1 : NEXTJ , I 

590 CIRCLEC 115,61), 12 , 1 . , , 1 : PA1NTC 1 15 , 6 1 

). 1:CIRCLEC117,71), 15, 1. , , .5 

600 PA I NT C 104,71 ), 1 :PA INT C 130,7 1 ), 1 : A=l 1 

8:GOSUB780:A=1 15:GOSUB790 

6 10 GOSUBB10:BSAVE"SAR-SPR1 . SPR" . &H2000 . 

&H2 FFF , S : COLOR 15.0.0: CLS 

620 A=24: GOSUB770 : GOSUB790 : FORI=-2T02 

630 FORJ=ABSC I )¥2TOABSC I )¥2+l :LINEC3+I .6 

5+J)-C5+I ,73+J), 1 :LINE-C9+I ,77+ J). 1 

640 LINE-C 10+1 ,79+J), 1 : LINE-C 12+1,81+J). 

1 :LINE-C 19+1 ,83+J). 1 

650 LI NEC 27+1 ,86-J)-C40+I ,89-J), 1: LINE-C 

43+1 ,91-J), 1: LINE-C 45+ I ,93-J), 1: NEXTJ, I 

660 FORI=-2T02:FORJ=ABSC I )¥2TOABSC I )¥2+l 

:L1NEC56+I ,65+J)-C58+I ,73+J). 1 :LINE-C61+ 

I, 77+J), 1 

670 LINE-C63+I.79+J). 1 : LINE-C 65+ I . 8 1 +J ) , 

1 :LINE-C72+I ,83+J), 1 : NEXTJ , I 

680 CIRCLEC77.61), 12 , 1 , , , 1 : PAINTC77 . 6 1 ) , 

1:CIRCLEC75,71), 15, 1, . . .5 

690 PAINTC88.71 ). 1 :PAINTC62.7 1 ), 1:A=74:G 

OSUB780 : A=77 : GOSUB790 

700 FORI=-lT01:FORJ=ABSCI )¥2-3TOABSC I )¥2 

+3:LINEC125+1 ,68+J )-C 140+1 .70+ J). 1 

710 LI NEC 130 + 1 ,68+J )-C 128+1 ,78+J). 1 : LINE 

-C125+I.83+J). 1: LINE-C 120+1 ,86+J). 1:LINE 

-C 1 14+1 ,86+J). 1 :LINE-C 1 10+1 ,87+J). 1 

720 LI NEC 134+1 ,70+J)-C 133+1 ,80+J), 1 : LINE 

-C 131+I.85+J). 1: LINE-C 128+1, 89+J), 1:LINE 

-C 125,91+J), 1 

730 LINEC 137+1 ,71+J)-C 138+1 ,73+J), 1 : LINE 

-C139+1.76+J). 1: LINE-C 137+1, 84+J). 1:LINE 

-C I 35 + 1 ,88+ J). 1 : LINE-C 133+1 ,9 1+J). 1 : NEXT 

J.I 

740 GOSUB8 1 : BSAVE"SAR-SPR2 . SPR" . &H2000 . 

&H2FFF.S 

750 SCREEN0:PRINT"DATA WROTE .": BEEP: BEEP 

: BEEP: BEEP: BEEP: END 



760 ' DRAW SUBROUTINE ::::::::::::::: 
770 CIRCLEC A. 6 1 ) . 1 2 , 1 . . , 1 : PAINTC A, 6 1 ) , 1 : 

CIRCLECA.71). 15. 1 5 ".PAINTC A- 13. 7 1 ). 1: 

PAINTCA+13.71 ), 1 : RETURN 

780 CIRCLECA.7 1 ) , 1 1 . . . , . 5 : PAINT C A, 7 1 ) , 
: CIRCLEC A, 61). 8,0, . . 1 : PAINTC A. 6 1 ) . : RETU 
RN 

790 CIRCLEC A. 96). 17, 1 ... 1 . 3 : CIRCLEC A . 96 ) 
,5, l:LINECA-24,96)-CA+24,96). 1: PAINTC A. 6 
6). 1 : LINEC A-24, 96 )-CA+24. 96 ).0: RETURN 
800 CI RCLEC A , 84 ) . 4 . : PA I NTC A . 84 ) . : RETUR 
N 

810 LINEC0,96)-C255, 143 ) . , BF : FORB=0TO96 
STEP48 

820 FORI=0TO47:FORJ=0TO47:A=POINTCJ+B, 1+ 
48): IFA=1THENPSETCJ+B, 1 ). 1 
830 NEXTJ. I:LlNECB.48)-CB+47. 191),0.BF:F 
ORI=0TO47STEP1 . 3 : FORJ=0TO47STEP1 .3 
840 A=POINTCJ+B, I ): IFA=1 THENPSETC J*. 75+B 
+6. I*. 75+54). A 

850 NEXTJ. I :FORI=0TO47STEP2:FORJ=0TO47ST 
EP2:A=POINTCJ+B. I ): I FA= 1 THENPSETC J* . 5+B+ 
12. 1*. 5+108), A 

860 NEXTJ. I :FORI=0TO47STEP3: FORJ=0TO47ST 
EP3: A=POINTCJ+B. I ): IFA=1 THENPSETC J*. 3+B+ 
17, I*. 3+158), A 

870 NEXTJ, 1 ,B:AD=0:FORG=0TO3:FORH=0TO2:F 
OR I =0TO2 : FORJ=0TO2 : FORK=0TO 1 : FORL=0TO1 
880 FORM=0TO7:VPOKE&H2000+AD.VPEEKCM+L*2 
56+K*8+J*16+I*5 12+H*48+G*1536):AD=AD+l 
890 NEXTM, L.K.J, I,H.G:RETURN 
900 - DATA OF MACHINE LANGUAGE :::::: 
910 DATA 3A2AD0FE002003CD78D8CD28D5CD50D 
7CDB0D93A1AD0FEF0D0CD88D93A1BD0FE.B9 
920 DATA F0D03AEBFBE6 10322CD0FE00C8C3D0D 
43A0BD0E6F8CB3FCB3FCB3FC6D13209D0.E4 
930 DATA 3A0BD0CB27CB27CB27CB27CB27473A0 
AD0803208D0C900003E003204D0000000.C1 
940 DATA 3A00D03206D03A04D0320CD03A02D04 
73A06D0803206D03A0CD03D320CD0FE00 , 78 
950 DATA C23CD53A0 1D03207D03A04D0320CD03 
A03D0473A07D0803207D03A0CD03D320C82 
960 DATA D0FE00C25FD500003A06D0320AD03A0 
7D0320BD03A04D0C6883208D03ED03209.AD 
970 DATA D02A08D07E320DD03A04D0C6893208D 
03ED03209D02A06D07E320ED03A0DD047 , CD 
980 DATA 3A0ED090320ED0CD00D52A08D07EFE0 
1C228D600003A04D0CB27CB27CG983208.23 
990 DATA D03ED03209D02A08D07E3262F523237 
E3264F5237E3265F53E0032G3F53267F5 . C4 
1000 DATA 3269F5326BF5326DF5326FF53270F5 
3A0DD0C6403266F53E1832G8F53E80326C.CE 
1010 DATA F53A0DD0473E80909032GAF52 162F5 
DD2 19 10 1CD5F01C9003E023265F53E0032.FC 
1020 DATA 63F53264F53267F53269F5326BF532 
6DF5326FF53270F53A06D0473A03D08032 . 6A 
1030 DATA 0AD03A02D0473A07D090320BD0CD00 
D52A08D07E0600FE01200206803A0DD080.41 
1040 DATA 3262F53A0DD0C6403266F53E183268 
F53E80326CF53A0ED032GAF521G2F5DD2 1 .88 
1050 DATA 9101CD5F013E023265F53E04326FF5 
3E003263F53264F53267F53269F5326BF5.6G 
1060 DATA 326DF53270F53A07D0473A02D08032 
0BD03A03D0473A06D090320AD0CD00D52A.E8 
1070 DATA 08D07E0E00FE0 120020E803A0DD047 
3E7F908 13262F53A0DD0473EBF903266F5.40 
1080 DATA 3E183268F53E80326CF53A0ED032GA 
F52 162F5DD219101CD5F0 13A04D03C3204.94 
1090 DATA D0FE0CC230D52 1B4002262F52 15401 
22G4F52 17D002266F52 1 18002268F52 1 06 , DA 
1100 DATA 00226AF52 18000226CF52 10000226F 
F52 162F5DD2 19 10 1CD5F0 1C90000000000 . 4A 
1110 DATA 3E013204D03A00D0320AD03A01D032 
0BD03A0AD0473A02D080320AD03A0BD047 . C2 
1120 DATA 3A03D080320BD0CD00D52A08D07EFE 
02CAB8D7FE03CA 1 8D9FE0 1 CAA0D73 A04D0 , 1 F 
1130 DATA 3C3204D0FE07CAA0D7C36 1D7000000 
002 100781 120793E00CD770 123CD2000C2. IB 
1140 DATA A6D7C900000000003A04D0473E0890 
5FCB27CB27CB27CB271G06DD2I4D0 1CD5F,2C 
1150 DATA 01000000000000003A04D0CG773208 
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D03ED03209D02A08D07ECB27C6F63208D0 . A7 

1160 DATA 3ED03209D02A08D07E32 13D0237E32 

14D02 10078221 1D0002A13D0CD740 12322 , 95 

1170 DATA 13D02A1 1D0CD770 12322 1 1D0 1 12079 
CD2000C208D80000003A04D0C66F3208D0 . DF 

1180 DATA 3ED02A08D07EC62821 1076CD770121 

1476CD77012 1 1876CD770 1C6202 1 1C76CD, B2 

1190 DATA 7701212076CD7701212476CD7701C6 
202 12876CD7701212C76CD770121307eCD,FA 

1200 DATA 7701C900000000003ED03209D03E00 
CDD500FE03201D3A05D03CE6033205D0CB.7E 

12 10 DATA 27CG803208D02A08D07E3202D0237E 
3203D0C9FE0720 1D3A05D03DE6033205D0.E8 

1220 DATA CB27CB803208D02A08D07E3202D023 
7E3203D0C9FE0 1 202F3A00D0473A02D080 . 60 

1230 DATA 320AD03A0 1D0473A03D080320BD0CD 
00D52A08D07EE601FE01C83A0AD03200DO,DE 

1240 DATA 3A0BD0320 1D0C9FE05C03A02D0473A 
00D090320AD03A03D0473A01D090320BD0.99 

1250 DATA C3DED800000000003A05D0CB27CB27 
473A15D080C6603208D03ED03209D02A08.CD 

1260 DATA D07ECB27CB27CB27473A04D0C67732 
08D02A08D07E3DCB2780C6D03208D02A08.C1 

1270 DATA D07E3213D0237E3214D0210078221 1 
D03A04D0473E0890CB27CB27CB27CB27 1E,C7 

1280 DATA 001606DD214D01CD5F010000000000 
0000C308D8000000003A1AD0FE7038053E.45 

1290 DATA 70321AD0473E9890213476CD77013A 

1BD0473E98902 13876CD7701C900000000.F8 

1300 DATA 3A00D0320AD03A0 1D0320BD0CD00D5 
2A08D07EFE02C2C0DA3E00773A1AD0C610,5B 

1310 DATA 321AD0CD88D93E0E321CD03E013223 
D03224D0C3C0DA3E0032A0FD3EDA32A1FD.90 

1320 DATA 3EFB32A2FD3EC932A3FD3ECD329FFD 
C9F32A1ED07E473A1DD0805F3E02CD9300.FB 

1330 DATA 2A1ED023221ED03A1ED03C321ED0FE 
02C280DA3E0032 1ED02 1F0D322 1ED02A20.87 

1340 DATA D07E321DD05F3E02CD9300237E5F3E 
06CD9300237E5F3E09CD9300237EC6E05F.5D 

1350 DATA 3E0BCD93003E0CCD93001E003E0DCD 
93001E313E07CD93001E103E08CD93007E.62 

1360 DATA 232220D0FE80D82 100D42220D0C900 
003A25D03CE6073225D0FE00C03A24D0C6.8C 

1370 DATA 033224D05F3E04CD93003A23D05F3E 
05CD93003A1CD03D32 1CD05F1C3E0ACD93.FD 

1380 DATA 003A1CD0FE00C03E01321CD0C90000 
003E00CDD800FE00CA58DB3A02D0473A00 . 75 

1390 DATA D080320AD03A03D0473A01D080320B 
D0CD00D52A0SD07EFE03C258D83A1BD03D.C2 

1400 DATA 3D321BD0CD88D93E0E321CD03E0D32 
23D03E003224D03E013226D03E073228D0.9C 

1410 DATA C358DB00000000003A27D0FE0028 16 
3D3227D0 16045FCB27CB27CB27CB27DD21.08 

1420 DATA 4D01CD5F013A28D0FE00C83D3228D0 

16055FCB27CB27CB27CB27DD2 1 4D0 1 CD5F , 94 

1430 DATA 01C9000000000000CD18DBC358DC00 
003A16D0473A18D080320AD03A17D0473A.38 

1440 DATA 19D080320BD0CD00D52A08D07EFE0 1 
CAC8DB3A0AD0473A00D0B8200D3A0BD047 , AA 

1450 DATA 3A0 1D0B82003C3C8DB3E03773A18D0 



10 ' 1992 VOL.2 r &*<-i.1Tt. j LIST B 

20 ' PRESENTED BY YOSHIO IGARASHI 

30 • SETTING :::::::::::::::::::::::: 

40 CLEAR200 . &HCFFF : DEFUSR=&HD4D0 : DEFUSR 1 

=&HD9E6 : DEFUSR2=&HD9 1 8 

50 DEFINTA-Z:0PEN"9rp: "AS81 : DEFFND=VALC " 

&H"+MID$CAS. J*2+l .2)) 

60 SCREEN5,3,0:FORI=3TO0STEP-1 :SETPAGE. I 

: COLOR 15,0.0: CLS : NEXT 

70 GOSUB640:FORI=0TO7:COLOR=C8+I ,1,1,1): 

NEXT: R=RNDC -TIME) 

80 ' SPRITE SET ::::::::::::::::::::: 

90 SETPAGE1 . l:BLOAD"SAR-SPRl.SPR".S:COPY 

C0,64)-C255,95). 1 TOC 0,0), 1 

100 BLOAD"SAR-SPR2 . SPR" . S : COPYC . 64 )-C 25 
5,95), 1TOC0.32), 1 

1 1 SETPAGE0 . : FOR 1=11 T02 1 : READAS : B$=" " : 
FORJ=0TO31 

120 B$=BS+CHR$CFND):NEXTJ:SPRITESC I )=BS: 
NEXTI :SPR1TE$C 10 )="fc" : SPR1TESC22 )="" 

130 COPY"SAR-GRPl . GR5"TOC0 , 84) , 1 :COPY"SA 
R-GRP2 . GR5 "TOC , ) , 2 

1 40 COPY"SAR-GRP3 . GR5 "TOC , ) , 3 : BLOAD"SA 
R-MACH.BIN" 

150 - BACKGROUND DRAW ::::::::::::::: 

160 FORI=0TO6:FORJ=0TO7:COPY<64, 131 )-<98 

,162), 1T0CJ*35, I*32),0:NEXTJ, I 

170 FORI=0TO15:GOSUB600:LINEC63-I ,23-1 )- 




320AD03A19D0320BD0CD00D52A08D03E00.44 

1460 DATA 773A16D0473A18D0803218D03A17D0 
473A19D08032 19D0C93ED03209D0ED5FE6.D4 

1470 DATA 01FE003A15D028023D3D3CE6033215 
D0CB27C6803208D02A08D07E32 16D0237E,79 

1480 DATA 3217D03E003229D0C93A00D0473A02 
D080320AD03A01D0473A03D080320BD0CD.ED 

1490 DATA 00D52A08D07EFE0320142100802213 
D0210078221 1D03E013204D0CD08D83A1A, 12 

1500 DATA D0C6FC321AD00000003E0E32 1CD03E 
0D3223D03E003224D03E013226D03E0732.CA 

15 10 DATA 27D0C90000000000CDB0DC3A18D047 
3A16D080473A00D0B8201C3A19D0473A17.22 

1520 DATA D080473A01D0B8200D3E013229D0ED 
5FFE40D8C3F9DB3A29D0FE012007ED5FFE.8D 

1530 DATA 20D260DB3A26D0FE0 13E003226D0CA 
C8DBED5FFE40D8ED5FFE08C360DB000000.E1 

1540 DATA 3AECFBE640FE00203D3A2AD0FE0828 

1D3C322AD03E3C210276CD77013E402 106.86 

1550 DATA 76CD77013E442 10A76CD7701C93E48 
2 10276CD77013E4C2 10676CD770 13E5021 , 6B 

1560 DATA 0A76CD7701C93A2AD0FE08281A3E00 
322AD03E582 10276CD770 12 10676CD770 1 , CA 

1570 DATA 2 10A76CD7701C93E00322AD03E5821 
0276CD77012 10676CD77012 10A76CD7701 ,55 

1580 DATA 3E0 13204D03A00D03206D03A01D032 
07D00000003ED03209D03A04D0C64F3208.E1 

1590 OATA D02A08D07E210C76CD77013A04D0C6 
573208D02A08D07E210D76CD77013A04D0.E4 

1600 DATA C677320BD02A08D07ECB27CB27C628 
210E76CD77012100001 1000523CD2000C2 ,8C 

1610 DATA 8BDD3A06D0473A02D0803206D0320A 
D03A07D0473A03D0803207D0320BD0CD00 , 27 

1620 DATA D52A08D07EFE00200F3A04D03C3204 
D0FE08CA2EDEC344DDFE03202F3E542 106 , 9B 

1630 DATA 76CD77013A1BD0C6FC321BD0CD88D9 
3E0E32 1CD03E053223D03E003224D03E01^62 

1640 DATA 3226D03E073228D0CD18DB3A04D000 
C64F3208D03ED03209D02A08D07E473E98 , 3A 

1650 DATA 90477E322BD0210C76CD7701 1 10077 
23CD2000C2 1CDE3A2BD03CB8C2 1 3DE3E58 , 30 

1660 DATA 2 10E76CD770 1C90000000000000000 
0000000000000000000000000000000000. B3 

1670 ' DATA OF WORKAREA ::::::::::::: 

1680 DATA 1E2A31373B3F42003A8E87817D7976 
0003020104040302010104030202010403 

1690 DATA 040204FC0602FF000 1020303040404 
0400FF01 00000 1FF000007 1620292E3236 

1700 DATA 393B3C3D3F3F3F3F00000003000000 
03720000030000540 1C6000003 40005401 

1710 DATA 6400540 18000540 19400540 1A20054 
1AC005401B4005401B4005401B400540 1 

1720 DATA 00806063C086208A20818084E08740 
8B4082A0850089608C00906093C096209A 

1730 DATA 209 18094E097409B4092A095009960 
9C 

1 740 ' DATA OF BGM :::::::::::::::::: 

1750 DATA"~*/H~! . «~ ! , tt~ ! *tt->0/-0-5 ! . H-s! ,»->! 
*tt*8/0*8 . 0*0 . O¥0*0x*/0x* . 0i )-0i ) . 0" 

1760 DATA"~*/tt~! . ttx ! , M~ ! *»o0/0-? ! . tt~ ! ,«->! 
W-tQ/tUB . 0-J0 . O*0*0x*/Ox* . 0x )-0x) . -" 



C 192+1 . 152+1 ),C,B:FORJ=0TO205STEP205 

180 LINEC23+J-B.41-B)-C28+J+B. 152+B),C.B 

-.NEXT J: IFI = 1THEN240 

190 J = C K8)*l¥2 + C I>7)*I-CI)7)*4:LINEC12- 

B. 180-B)-C 12-B.200+B),C 

200 LINE-C60+B,20O+B),C:LINE-C60+B, 185-B 

),C:LINE-C38+B+J, 185-B ).C 

210 LINE-C33+B+J. 180-B) , C: LINE-C 12-B, 180 

-B).C:LINE<243+B, 180-B )-(243+B, 200+B),C 

220 LINE-C 196-B.2O0+B),C:LINE-C196-B. 185 

-B),C:LINE-C217-B-J, 185-B), C 

230 LINE-C222-B-J, 180-B) . C: LINE-C243+B, 1 

80-B).C:CIRCLE< 128.211), I+40.C. . , .6 

240 CIRCLEC 128.21 1 ), 1+40, C, . , .58:NEXT:PA 

INTC48, 190),4,8:PAINTC220. 190), 5. 8 

250 GOSUB610:PRESETC72.40):PRINTttl , " — * 

*<" /.ft" ^ ~":PRESETC92.88) 

260 PRINTttl , "PRESENTED" :PRESETC80, 104) :P 

R I NTH 1. "BY YOSHIO I . " : GOSUB650 

270 FOR I =0TO 1 : I =-STR 1 GC ) : NEXT : GOSUB6 1 : 

PRESETC 104,80):PRlNTttl , "WAIT ! " 

280 ' MAP READ & SETTING :::::::::::: 

290 PUTSPRITE13.C23. 141 ).7, 10 : PUTSPRITE1 

4, C228, 141), 7, 10:SC=0:GOSUB580 

300 GOSUB640 : RESTORE780 : FOR I =0TO2 : READAS 

: FORJ=0TO3 1 : A=FND: FORK=0TO7 

3 10 POKE&HD100+I*256+J*8+7-K,SGNCAANDC2" 

K ) ) : NEXTK , J . I : FOR I =0TO9 : GOSUB590 : NEXT 



320 FORI=0TO1 : READAS: FORJ=0TO31 : POKE&HD0 

00+I*32+J,FND:NEXTJ. I :U=USRU0) 

335 FORI=0TO8:SPRITE$C I )="" : NEXT: FORI=0T 

02 -.PUTSPR I TE I ,C 1*32+80 , 40 ), 3 , 22 : NEXT 

340 FOR I =0TO2 : FORJ=0TO2 : PUTSPR I TE I *3+ J+4 

, CJ*32+80. 1*32+40), 6. I*3+J:NEXTJ, I 

350 PUTSPRITE3.C0.0), 10,22 

360 ' MAIN ROUTINE :::::::::::::::::: 

370 U=USRC0): IFPEEKC&HD02C)=0THEN520ELSE 

IFPEEKC&HD01A)>240THEN460 

380 ' I WON ! ::::::::::::::::::::::: 

390 GOSUB620:FORI=0TO19:POKE&HD015. (PEEK 

C&HD015)+1 )M0D4 

400 U=USR2C0 ) : FORJ=0TO7 : C0L0R=C6 , J , . ) : 

NEXT J . 1 : COLOR=C 6 .0.0.0) 

410 POKE&HD100+CPEEKC&HD019)*32+PEEKC&HD 

018)).0:SC=SC+1 

420 IFPEEKC&HD001 X 1OTHENPOKE&HD0 19 , 18EL 

SEP0KE&HD019, 1 

430 I FPEEKC &HD000 ) < 1 6THENPOKE&HD0 1 8 . 30EL 

SEPOKE&HD018, 1 

440 FORI=0TO2:GOSUB590:NEXT: IFS0 19THENP 

OKE&HD0 1 B . 1 1 0ELSEPOKE&HD0 1 B . SC*5+ 1 6 

450 GOSUB580:GOTO370 

460 • GAME OVER ::::::::::::::::::::: 

470 GOSUB620 : G0SUB6 1 : POKE-609 , &HC9 : PRES 

ETC92,40):PRINTttl ."GAME OVER" 

480 GOSUB650: PUTSPR 1TE0. C 1 12 , 80 ) , 1 1 , 1 1 : F 

OR I = 1 5TO0STEP- 1 : SOUND8 , I : S0UND9 . I 

490 SOUND10, I :FORJ=0TO200:NEXTJ, 1 :G0T027 



510 ' PAUSE ::::::::::::::::::::::::: 

520 GOSUB610:LINEC94.70)-C161 , 1 13). 15.BF 

530 L1NE<96.72)-C159, 111 ) , , BF : PRESET < 10 

8, 40 ): PR I NTS 1 . "PAUSE" ".GOSUB6 50 

540 LINE(PEEKC&HD000)*2+96,PEEK(&HD00 1 )* 

2+72)-STEP< 1 , 1 ),7,B 

550 LI NEC PEEKC &HD0 1 8 )*2+96 . PEEKC &HD0 19)* 

2+72)-STEP< 1,1). 14, B 

560 FORI=0TO1: I=-STR1GC0 ) :NEXT: GOT0335 

570 ' SUB ROUT I NE ::::::::::::::::::: 

580 PRESETC 96. 200): PR I NTttl , USINC'SCOREHB 

H";SC: RETURN 

590 A=INTCRNDC 1 )*640): IFPEEKC&HD1 00+A)=0 

THENPOKE&HD 1 00+A , 2 : RETURNELSE590 

600 C=-C 1>7)*15 + CC 1>7)*2+1 )*I+8 : B=C C I >7 ) 

*4)-C I>7)*I-CC K8)*.5*I ): RETURN 

6 1 FOR I =0TO 1 2 : PUTSPR I TE I . C . 2 1 7 ) : NEXT : L 

1NEC64,24)-C 191 . 151 ), . BF : RETURN 

620 I FPEEKC &HD0 1 A ) < 1 ORPEEKC &HD0 1 A ) >240TH 

ENPUTSPRITE13.C23. 1515.7. 10 

630 IFPEEKC&HD01BX 1ORPEEKC&HD0 1B)>240TH 

ENPUTSPRITE14.C228. 151), 7, 10 

640 COLOR=C3 . 0,0.7): COLOR=C 4 ,0.0.0): COLO 

R=C 5 , , , ) : COLOR=C 7 ,7,0,0): RETURN 

650 PRESETC72. 128 ) : PRINTB 1 ."PUSH SPACE K 

EY": RETURN 

660 ' DATA OF STONE & ALPHABET FONT : 

670 DATA 010F1E3F3F777F7BFEFFBDFFDF777D3 

FC0B0E8F8FCFA7EF5DFFB77DDF75AACF8 

680 DATA 0000030E171D2F3E3F171D1F0F03000 

000F8ACD4FE6AFEDA7EDEFAFEF4DCF000 

690 DATA 00000F1D2A372E3F3E17 1D0F0300000 

00000E058F4FCBC78F8B0F06080000000 

700 DATA 00000000070D0F0A0D0F0D0A0700000 

000000000008040C060A060C000000000 

7 10 DATA 6794848484444447242424141414946 

7334A4A4A4A4A4A4A4B4A7A4A4A4A4A4A 

720 DATA 8D51515151515151919191915151514 

D2E242424242424E4242424242424242E 

730 DATA 9394D4D4D4D4D4B4B5B4B4B4B4B4949 

31B9B1B1B1B1B12129292808080809B1B 

740 DATA 6792828282424242222222121212926 

2324A4B4B4B4B4B4A4A4A7A4A4A4A4A4A 

750 DATA 5C525252525252D2D2D2D2D2D2D2525 

CE5959595959595E595979292929292E2 

760 DATA 1C36363636363636363636363636361 

CDBDBDBF3F3F3E2E2E2E2F0F0F0D8DBDB 

770 DATA DBDBDBDBDBDBDBFBDBDBDBDBDBDBDBD 

B7B333333333332323232303030303333 

780 ' DATA OF MAP 8. WORK AREA ::::::: 

790 DATA FFFFFFFF8003C001ADE8 17B581EFF78 

1 B5E8 1 7 ADB5EBD7 AD8003C00 1 BFF8 1 FFD 

800 DATA A0 1DB005AFC00555AFDDB555A0 1DB00 

5BFF8 1 FFD8003C00 1 B5EBDEADB5E8 1 EAD 

810 DATA 81EFFE81ADE81EB58003C001FFFFFFF 

F 

820 DATA 0101010000010000000000000000000 

0000000000003FF00 1E0 1 10 100200F0D3' 

830 DATA 00D4000000000000000000 
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10 ' < < ZYANBOO ¥ 

Zero > > 
iH COLOR 15,12,12:CALLKANJI0:SCREEN 5.3 
30 FOR 1 = TO 3 :F0R J = TO 31:READ 8$ 
40 A$=A$+CHR$(VAL("SH"+B$)) 
NEXT J 

5 SPRITES (1)=A$:SPRITE$< 1+4) =AS:A$="" 
NEXT I 

(,0 FOR 1=0 TO 8 :REAU GI(I) 
NEXT 1 
70 FOR 1=0 TO 9 :F0R J=0 TO 9:FI(I,J)=2 

:NEXT J.l 
80 FOR 1=1 TO 8 :F0R J=l TO 8 : FI ( I , J) =0 : 
ZI(I,J)=0:NEXT J, I 

9lJ , <<(*-fhrt'fc*-*»5g))) 
100 CLS:C0L0R 1 : LINE (20, 20) - ( 235 . 185) , 5 , 
B:O=0 :I=4 
110 LOCATE6,0:PRINT" < ZYAN • BOO> 

:C0L0R 10 
120 L0CATE4,2:PRINT" < T V - K h (t £ H ift 
5g > " :C0L0R 15 

130 L0CATE3,3:PRINT" 1 =2 P W «S / 2 = C O 
M « »K":G0SUB 700 
140 L0CATE3,5:PRINT" P 1 1=K.EY/2 = J 

• 1 " :GOSUB 700 

150 IF P(0)=2 OR P<1)=2 THEN Q=Q+l:I=I+2 

:P(2)=2:G0T0 170 

16 L0CATE3.7: PRINT" P 2 1 = J • 1 / 2 = J 

• 2 " :G0SUB 700 

170 L0CATE3,9:PRINT"ISM "T S flfi 1? » (# 
- 7 ) ":A$=INPUT$(D :A=VAL(A$) :1F A=)0 A 

NO A<8 THEN 1= 1 : GOSUB720 : ELSE 170 

180 CLS:L1NE(20,20)-(148,148) ,l,BF:FOR 1 

=20 TO 148 STEP lb 

190 L1NB(1,20)-(I,148),3 :LINE(20,I 

)-(148,I) ,3:NEXT I 

200 LINE(158,20)-(238, 148) ,5,B:COLOR 1 

210 LOCATE20.1 :PRINT" P 1" :LOCATE20, 

5:PR1NT" P 2(C0K)" 

2Z0 PAINT (21 . 21 ) , 5 . 3 :PAINT(133 

,133) ,6,3 

230 X(1)=1:Y(1)=1:X(2)=8:Y(2)=8:FI(1,1)= 

2 : F 1 ( 8 , 8 ) = 2 

240 •'■(((««■«*«)) ) 

250 IF P(3)=0 THEN 290 

260 A=P(1)-1 :C=l:GOSUB 770:IF P(0)=2 TH 

EN 280 

270 A=P(2) :C=2:GOSUB 770:GOTO 290 

280 FOR B=l TO P (3) : A = RND ( -TIKE) : X = INT ( R 

ND(1)«6)+2:Y=INT(RND(I)«6)+2:F1(X,Y)=1:Z 

HX,Y) = 1 :NEXT B 

290 ' ( ( ( : J- V V *r V ) ) ) 

100 GOSUB 760:PR1NT"H# ft •••!!! LSJ" 

:BEEP :GOSUB 740 

310 

4C16R4" 

320 COLOR 5 

4C16" 

330 IF P(0)=2 THENA=RND(-TIME) 

D(l)«3+1) :GOTO 350 

340 ST=STICK(P(2)) :G2=GI(ST) 

350 ST=STICK(P(1)-1) :G1=G1(ST) : IF G1=0 

R G2=0 THEN 330 

360 IF PLAY(0) THEN 360 

370 COLOR 8 :PRINT";K"f " :PLAY"V150 

5D8R8":GOSUB 760 

380 PUTSPRITE Gl-l,(180, 40) , 7 : PUTSPRITE 
G2 + 3, (180, 100) ,9 

390 IF G1=G2 THEN PRINT" h W Z. tz lilt 

■j —0 ! 1 I ":GOSUB 840:GOSUB 760:GOTO 3 

10 

4 00 PLA Y"V 140 5L3 2CDEFCDEFL8CDEFC4": COLOR 
10:1F Gl-G2=-1 OR Gl-G2=2 THEN V=1:L=2 

ELSE L=1:V=2 

410 PRINTUSING" C CO Hf ft PJO|»*>I.SJ";V:G 

OSUB 740:GOSUB 840 

420 ' ( ( < ft mm 5t ) ) ) 

430 FOR K = TO 2 : FF = : BB = : FL = : X = X (L) : Y 

= Y(L) 

440 IF FKX-1 .Y)=2THENFF = FF+1ELSE IFZKX 

-l,Y)=ITHEN BB=BB*1 

450 IF FI (X+l ,Y)=2THENFF = FF+1ELSE IFZKX 

+ 1 , Y ) = 1 T H E N BB = HB+ 1 

460 IF FI (X, Y-1)=2THENFF = FF+1ELSE IFZKX 

,Y-1)=1THEN BB=BB+1 

470 IF FI(X,Y+1)=2THENFF = FF+1ELSE IFZKX 

,Y+1)=1THEN BB=BB+1 



PRINT" i> A- V 
:PRINT" jr y • 



HLAY"V150 
PLAY"V150 
G2=INT(RN 



480 IF FF=4 THEN 630 ELSE IF FF+BB=4 THE 

N FL=1 ELSE FL=0 

490 GOSUB 760:PRINTUSING" P II : ft «J ( _h "F 

5 « ) " ; L 

500 IF L=2ANDP(0)=2THEN520ELSB1FL=1THENA 

=P(1)-1ELSE A=P(2) 

510 S=STICK(A) :ONS+1GOTO510.530.510,540, 

510,550,510,560,510 

520 R=1NT(RND(1)«4)+1:0N R GOTO 530,540, 

550,560 

530 IF FI(X,Y-1)=2 THEN 500 ELSE Y=Y-1:G 

OTO 570 

540 IF FKX+1.Y)=2 THEN 500 ELSE X = X + 1:G 

OTO 570 

550 IF F1(X,Y+1)=2 THEN 500 ELSE Y=Y+1:G 

OTO 570 

560 IF FKX-1, Y)=2 THEN 500 ELSE X = X-1:G 

OTO 570 

570 IF P(0)=1ORL=1 THEN 590 

580 IF ZI(X,Y)=1 THEN IF FL=0 THEN X=X(L 

) :Y = Y(L) :GOTO 520 

590 ' ( ( ( lftS fll) ) ] 

6 00PAINT(X(L)«16+5.Y(L)«16+5).15,3:X(L) 
=X:Y(L)=Y 

610 PAINT (X» 16 + 5, Y»16 + 5) ,4 + L,3 :1F F 

I(X,Y)=1 THEN 660 

620 FI(X,Y)=2:NEXT K:GOTO 290 

630 ' ( ( ( «K«7 ) ) ) 

640 PLAY"V1406L12CFDGEFDFCDFC4":G0SUB 76 

0:COLOR 10 

650 PRINTUSING" P tit . ft) tt & ^ ! ISJ";L:G 

OSUB 750:GOTO 680 

660 PLAY"V1403L12CFDGEFDFCDFC4":G0SUB 76 

0:COLOR 10 

670 PRINTUSING" P tit . 1«! B fc tt tl Tz I I.SJ" 

;L:GOSUB 750 

680 FORI=0TO212:LINE(0,I)-(256.1),12:NEX 

TI:L0CATE5,5:C0L0R1 

690 PRINTUSING" PJtfHM L J L r; 1 LSJ";V 

:GOSUB 740:GOTO 70 

700 - III ISiSigffl^-?- V \ \ \ 



710 A$ = 1NPUT$(1) :1F A$ = "l" OR A$ = "2" THE 

N 720 ELSE 700 

720 COLOR 13:L0CATE22,I:PRINT" = > ■" ; A$: i 

= 1 + 2 

730 P(0)=VAL(A$) : 0=0+1 :C0L0R15: RETURN 

740 ■ ( i i A?iff*). x*x •/ r m £ , v 

750 FOR 1=0 TO 1:1=-STRIG(0)-STRIG(1)-ST 

R1G(2) :NEXT I 

760 LINE (10, 150) -(238. 180) , 1 2 , BF : LOCATE 2 

.10:COLOR 15:RETURN 

770 • I ( li8IISf;l--fy| ) ) 

780 FOR B = TO P (3) - 1 : X = 2 : Y = 2 : L0CATE2 . 1 

790 PRINTUSING" P J : « •) «S » = > J";C;H 

(3)-B 

8 00 S=STICK(A):X=X-(S=3)+(S=7):Y=Y-(S=5) 
+(S=1) 

810 X=X-(X(2)+(X>7):Y=Y-(Y(2)+(Y>7):T=ST 

RIG(A) 

820 PUTSPRITE3, (X«16-4,Y+16-4) ,15: IF I I 

HEN 830 ELSE 800 

830 PUTSPRITE3, (0,-32) :F1 (X,Y)=1:NEXT B: 

RETURN 

8« ' I 1 ISPRITEI4I | I 

850 FOR 1=180 TO STEP -20 

860 PUTSPR1TEG1-1 , (1,40) , 1 :PUTSPR1TE U2+ 

3, (I , 100) , 1 :NEXT 1 

870 PUTSPRITEG1-I . (0,-33) :FUTSPR1TB G2+ 

3,(0,-33) :RETURN 

m ' I I ISPRITEI I | 

890 DATA 00,00, 1B,3B,3B,3B.33.2C, 10. IS. < 

3.3F.3F.0F.03.07 

9H0 DATA 00,00,68,6C,6C,6C.6C.94,FC,7C,B 

C.BC,HC,B8,F8,FC 

910 DATA 00. 1C.1C, 1C, 1E,1E,0E,0F,0F.08.0 

7. 0F.0E, 00,03,07 

920 DATA 00,70,70,70.F0,F0,E0,FC,DA,B6,3 

6.3b.82,FC,F8,FC 

930 DATA 01,0D,0D,0D,0D,6D,6F.7F,78,7E,3 

E.3F.0F,03,03,0F 

940 DATA B0,B0,B6,B6,B6,B6,FE.FE,0li.KE. 7 

E,BC,BC,F0,F0,FC 

950 DATA 00, 00, 00, 00, 0E, 08, 08, 01 ,01 ,08,0 

8. 0E, 00, 00, 00, 00 

960 DATA 00.00.00,00.70.10.10.80.80.10.1 

0.70,00.00,00,00 

9 70 DATA If , 2 '» , 3 , , , , 1 , IS : ' if -f V V *S ^1 

-m m r - 9 




PUSH ONLY 



10 - C PUSH ONLY 1 BY HIDEYUK1 YAMADA i 

20 ' 

30 ' SCREEN : WIDTH 80 : KEY OFF 
40 COLOR 15.0,0: SCREEN5 : DEF I NTA-Z : D 1 MCxC 6 
5) 

50 SETPAGE0.0:LINEC0.0)-C255.21 1 ) . . BF 
80 FORI=0TO5:CXC0)=16:C«< 1 )=18 : FORJ=2T06 
5 : READCS : Cx( J >=VAL< "&H" +C$ ) : NEXT 
70'COPYC5-.,0TOC I*18,0).0:NEXT 
30 FORL=0TO2 : FORK=0TO2 : FOR I =0TO 1 5 : FORJ=0 
T015:PO=POINTCJ+K*16. 1+L* 16 ) : PSETC 15-I+K 
*16, J+16+L*16),P0:NEXTJ. I ,K,L 
90 LINEC96.B5-C 111, 1 5 ) . 2 . B: LI NEC 97 . 1 )-C 1 
18. 145.3.BF 

100 LINE< 1 12.0 5-C 127. 15 ) , 2 . B: LI NEC 1 13, 1 > 
-C 126, 14), 4, B 

1 10 COPYC0.0)-C 127. 63 )T0"A: PUSHONLY.DAT" 
:END 

120 ■ GRAPHIC DATA 

130 DATA 0022.00.00.2222.0200.4420.4444.3 

003. F067. 4704. 7777. 0540. F067. 7704 

140 DATA 6666. 4560. F067. 7604. 5585. 4550, F 

067. 7604. 4455. 4548, F067. 7604. 4454 

150 DATA 4549. F067. 7604, 4454. 454F.F067. 7 

604 , 4454 . 4549 . F067 . 7604 . 4454 . 4549 

160 DATA F067. 7604. 4455, 4548, F067. 7604, 5 

565. 4550. F067. 7704, 6666. 4560. F067 

170 DATA 4704. 7777. 0540, F067. 4420. 4444. 3 

003. F067. 0022. 0000, 2222. 0200 

180 DATA 0022.0000,2222,2222.4420.4444,3 

303.3233.4704,7777.3340.3233.7704 

190 DATA 6666.3360.3233,7604.5565,0050,0 

000.7604.4455,8848,8888.7604,4454 

200 DATA 9949. 9999. 7604, 4454, FF4F.FFFF, 7 



604.4454.9949.9999.7604.4454.9949 

210 DATA 9999,7604,4455.8848.8888.7604.5 

565.0050,0000.7704.6666.3360.3233 

220 DATA 4704.7777.3340,3233,4420.4444.3 

303.3233.0022.0000,2222.2222 

230 DATA 2222.2222.2222.0200,3323.3333.3 

033. F067. 3323. 3333. 0533. F067. 3323 

240 DATA 3333. 4530, F067. 0000, 0000. 4500. F 

067. 8888. 8888. 4588. F067. 9999. 9999 

250 DATA 4599,F067.FFFF.FFFF,45FF.F067,9 

999. 9999, 4599, F067. 9999, 9939. 4539 

260 DATA F067. 8888, 8888, 4588, F067, 0000.0 

000. 4500, F067. 3323. 3333. 4530. F067 

270 DATA 3323. 3333. 0533. F067. 3323. 3333. 3 

033. F067, 2222. 2222. 2222. 0200 

280 DATA AA8A.AAAA. AAAA. A8AA, AAB8.AAAA.A 

AAA , 8CAA . 8 ABB . AAAA . AAAA . CCA8 . B8BB 

290 DATA AAAA, AAAA, CC8C.BBBB, 8888. 8888, C 

CCC , BBBB , AA8 A , B8 AB . CCCC . BBBB , AA8 A 

300 DATA B8BB. CCCC. BBBB, AB8 A, C8BB. CCCC, B 

BBB . BB8 A . C8BC . CCCC . BBBB . BBSB , D8CC 

3 10 DATA CCCC. BBBB, BC8B.D8CD. CCCC, BBBB, 8 

888.8888, CCCC . B8BB . DDDD . DDDD . CC8C 

320 DATA 8DBB. DDDD. DDDD, CCD8 , DDB8 . DDDD, D 

DDD , 8CDD . DD8D . DDDD . DDDD . D8DD 

330 DATA 4422.2244,4422,2244,5523.5355.5 

535.3255.6645,6666,6666.5466.6745 

340 DATA 7F77.77F7.5476.6745.F07F.F70F.5 

476. 6745, 00F0.0F00. 5476. 6725. 00F0 

350 DATA 0F00. 5276. 6F23. 0000. 0000, 32F6. 6 

F23, 0000, 0000. 32F6, 6725, 00F0.0F00 

360 DATA 5276. 6745. 00F0.0F00, 5476. 6745. F 

07F, F70F , 5476 . 6745 . 7F77 . 77F7 . 5476 

370 DATA 6645.6666.6666,5466.5523.5355.5 



109 



535 . 3255 , 4422 . 2244 . 4422 , 2244 

380 DATA 0800. 1 100.001 1 ,0000. 0008. AA1 1 , 1 

1 AA . 0000 . 1 00 . AAAA . AAAA .0010. 1 A00 

390 DATA BABC. AAAA. 00A1 .AB01 ,CBCD, AAAA. 1 

AA . AC0 1 . DCDF , AAAA . 1 AA , AB 1 A , CBCD 

400 DATA AAAA, A1AA.AA1A, BABC. AAAA. A1AA. A 



10 • C PUSH ONLY 2 BY HIDEYUKI YAMADA ) 

20 • 

30 • SCREEN : WIDTH 80 : KEY OFF 

40 " Vn+tVTl 



50 COLOR15,0.0:SCREEN5:OPEN"GRP:"ASttl : DE 

FIIITA-Z 

60 DS="00000000530277061701 1702170317045 

4056506720773077507760732037707" 

70 FOR1=0TO31 :D=VALC"&H"+M1D$CD$, 1*2+1 ,2 

) > : VPOKE&H7680+ I . D: NEXT : COLOR=RESTORE 

80 FORI=0TO2:SETPAGE0. I : L1NEC0 . )-C255 . 2 

1 1 X . , BF : NEXT : SETPAGE0 . 

90 COPY"A: PUSHONLY. DAT"TOC0 . ) . 2 

100 • 9-fHl 

1 10 VDPC 1 )=VDPC 1 )XOR64:FORI=0TO1:COLOR2+ 
1 :PSETC64-1 . 88 ), . TPSET: PRINTttl . "P U S H 
N L Y":COLOR8+l :PSETC28-I ,200).0,TPS 
ET : PR I NTttl ."PROGRAM : HIDEYUKI YAMADA" 
120 NEXTI:VDPC1)=UDPC1 )X0R64 
130 IFSTRIGC0)=0THEN130ELSELINEC0,0)-C25 
5 . 2 1 1 > . . BF 

140 ■ f Xl> 9-7t-f 

150 ST=1 :MS=0:FORJ=0TO1:SETPAGE.J:FORI=0 
TOl :PSETC215-I . 16 ) , . TPSET: COLOR2+ I :PR1N 
Tttl . "STAGE":PSETC215-l . 46 ), . TPSET: PRINT 
HI . "M1SS":PSET<223-I , 1 83 ). . TPSET: PRINTS 
1 . "1992": NEXT I , J:GOSUB720 

160 ' 9* 1=3-3 y-K 

170 FORI=0TO8:READ CX. CY: CXC I )=CX: CYC I ) = 

CY:NEXT I 

180 FORI=0TO8:READ CX, CY: DXC I )=CX: DYC I ) = 

CY:NEXT I 

190 FORI=0TO 3: READ CX , CY: EXC I )=CX: EXC I ) 

=CY:NEXT I 

200 ■ 7.7--J' <J-h" & tmiV 

2 10 SETPAGE. 0:LINEC0,0)-C208. 208 ).0.BF:R 

EAD STS.BX.BY 

220 K=0:FORI=0TO12:FORJ=0TO12:K=K+1 :MC=V 

ALCMIDSCSTS.K, 1 ) ) : COPYCCXCMO* 16 . CYCMO* 

16)-CCXCMC)*16+15.CYCMC)*16+15),2T0CJ*16 

. 1*16).0:NEXTJ. I : COPYC0 . >-<208 . 208 ) , 0TO 

(0,0), 3 

230 X=BX: Y=BY : ME$=ST$: COPYC . >-C 208 . 208 

),3TOC0,0), 1 :K=0:FORI=0TO12:FORJ=0TO12:K 

=K+1:MC=VALCMID$CST$,K. 1)>: IFM03THENNEX 

TJ. I:GOTO280 

240 IF MC=0 THEN COPYC 1 6 . )-C 3 1 . 15 ) , 2T0C 

J*16. 1*16). 1:NEXTJ. I : GOTO 280 

250 IF MC=1 THEN COPYC 16 , 16 )-C3 1 , 3 1 ) , 2T0 

C J* 16. 1*16). 1:NEXTJ. I:GOTO280 

260 IF MC=2 THEN COPYC 16 , 32 )-C 3 1 , 47 > . 2TO 

C J* 16, 1*16). 1: NEXT J, I :GOTO280 

270 IF MC=3 THEN COPYC 16 , 48 )-C3 1 , 63 ) . 2TO 

CJ*16,I*16), 1: NEXT J, I:GOTO280 

280 K=0:FORI=0TO12:FORJ=0TO12:K=K+1 : MC=V 

ALCMIDSCSTS.K, 1 )): IFM03THENNEXTJ . I : GOTO 

330 

290 IF MC=0 THEN COPYC32 , )-C47 , 15 ) . 2TOC 

J*16+16, 1*16), 1:NEXTJ, I :G0T0 330 

300 IF MC=1 THEN C0PYC32 . 16 )-C47 , 3 1 ) , 2TO 

CJ*16, 1*16+16), 1 :NEXTJ, I :GOTO330 

310 IF MC=2 THEN C0PYC32 . 32 )-C47 . 47 ) , 2TO 

CJ*16-16, 1*16), 1 :NEXTJ, I :GOTO330 

320 IF MC=3 THEN COPYC32 , 48 )-C47 . 63 ) . 2T0 

C J* 16. 1*16-16), 1:NEXTJ, I:GOTO330 

330 X=BX:Y=BY: AX=0:AY=0: COPYC 80.0 )-C 95, 1 

5 ) . 2TOC X* 1 6 , Y* 1 6 ) . . TPSET 

340 • XYV H-f> 

350 S1=-1:S2=0: IFSTRIGC0 )THEN460ELSE350 

360 GOSUB390:IF S2O0 THEN 460 

370 XX=X+AX : YY=Y+AY : BP=XX+YY* 13+1: G0SUB5 

00 

380 ON BD+1 GOTO 420,420,420,420.560,6 10 

,440,590 

390 S=STR1GC0): IF S1O0 THEN S2=0 ELSES2 

=S 

400 S1=S: RETURN 

410 ' )Vs ! J+ 

420 PLAY"S0M1000O6G64": AX=AX*C-1 ) : AY=AY* 
C-l ):XX=X+AX:YY=Y+AY:COPYC80.0)-C95, 15), 
2TOC XX* 1 6 , YY* 1 6 ) , . TPSET : COPYC 96 . )-C 1 1 1 
.15). 2TOC X* 1 6 , Y* 1 6 ) , : X=XX : Y=YY : GOTO360 
430 ' 97 / -i>-0 



A l A . AAAA . AAAA . A l CD , AA l A . AAAA , AAAA 

410 DATA AlCD, AAOl .AAAA.ACAA, 10DA, AA01 . A 

AAC.CCAA, 10DA. I A00 . CCAD. DDCC, 00 A l 

420 DATA 0l00.DDAA.AADD.0Ol0.0000.AAl l . I 

lAA. 0000. 0000. I 100.00 1 1 .0000 



440 COPYC80.0)-C95, 1 5 ) . 2TOC C X+AX )* 16 . C Y+ 
AY)*16).0,TPSET:COPYC96.0)-C 111. 15).2T0C 
X* 1 6 , Y* 1 6 ) . : X=X+AX : Y=Y+AY : GOTO360 

450 ' ~>V 

468 BP=X+CY-1)*13+1 :GOSUB58B: IFBD=1THENA 

x=0:AY=l :GOTO510 

470 BP=X+CY+1 )*13+1 :GOSUB500: IFBD=3THENA 

X=0:AY=-1 :GOTO510 

480 BP"=CX-1)+Y*13+1:GOSUB500: IFBD=0THENA 

X=1:AY=0 :GOTO510 

490 BP=CX+1 )+Y*13+l:GOSUB500: IFBD=2THENA 

X=-l :AY=0:GOTO510 ELSE 530 

500 BD=VALCMID$CME$.BP, 1 )): RETURN 

510 PLAY"S0M1000O6G64":XX=X+AX:YY=Y+AY:C 

OPYC80.0)-C95, 15).2TOCXX*16.YY*16), 1 . TPS 

ET 

520 SETPAGE1 : COPYC 80 . )-C 95 . 15).2TOCXX*l 

6,YY*16).0.TPSET:COPYC96.0)-C1 1 1 . 15).2TO 

C X* 1 6 . Y* 1 6 ) , : FOR I =0TO99 : NEXT : SETPAGE0 : C 

OPYC96.0)-C 111. 15),2T0CXX*16.YY*16), 1 : X= 

Xx:Y=YY:GOTO360 

530 COPYC80.0)-C95, 15 ) , 2T0CX*16 . Y*16 ) . 1 , 

TPSET : SETPAGE 1 : FOR 1 =0 TO 1 50 : NEXT 

540 SETPAGE0 : COPYC 96, )-C 111 , 15).2TOCX*l 

6.Y*16). 1 :GOTO370 

550 ' 1' Ov? 

560 FORI=0TO1 :COPYC96.0)-C 111. 15),2TOCXX 

*16.YY*16). I : NEXT I 

570 M1D$CMES.BP)="6":GOTO420 

580 ' S=X 

590 SETPAGE. : GOSUB740 : PLAY"S0M28B80O5L 1 
6DGDFF":LINEC48.96)-C 159, 1 1 1 ),0,BF:FORI= 
0TO1 :C0L0R8+I :PSETC62+I , 100 ) . . TPSET : PR I 
NTttl,"* MISS *":NEXT:MS=MS+1:GOSUB720 
: FOR I =0TO3000 : NEXT : COPYC . )-C 208 . 208 ) . 3 
TOC0,0),0:GOTO 230 

600 ' ?>)7 

6 1 SETPAGE , : GOSUB740 : PLAY"S0M20000O5L 1 
6FGFGFGFGFGAB06C . " : L I NEC 48 . 96 )-C 1 59 . 1 1 1 ) 
,0.BF:FORI=0TO1 :COLOR8+l :PSETC52+I .100). 
0, TPSET: PR 1 NTB 1 . "< CLEAR >": NEXT : FOR 
I=0TO4000:NExT:ST=ST+l : IFST=1 1THEN630ELS 
EGOSUB720:GOTO 2 10 



620 ' 



*-ll ?')? 



630 FOR I =0TO5000 : NEXT : SETPAGE0 , : L INEC0 . 

0)-C255.21 D.0.BF 

640 COPYC64.0)-C79, 15 ) . 2TOC0 . ) . : COPYC 8 

0.0)-C95.15).2TOC0,0).0. TPSET : FOR I =0TO 1 5 

:FORJ=0TO12:COPYC0.0)-C 15,15).0TOCI*16.J 

*16).0:NEXTJ. I :LINEC48.4B)-C208, 160).0.B 

F : FOR I =0TO 1 : C0L0R8+ 1 : PSETC 64+ I . 64 ) . . TPS 

ET : PR 1 NTH 1 . "CONGRATULAT I ONS ! " : NEXT I 

650 FORI=0TO1 : COLOR 10+ 1: PSETC 68+ I ,80).0. 

TPSET: PR I NTttl . "ALL STAGE CLEAR" 

660 PSETC92+I. 104) . , TPSET : PRINTttl ."PUSH 

ONLY": NEXT I 
670 FORI=0TO1:COLOR6+I:PSETC68+1 . 128),0, 
TPSET: PR I NTttl . "PRESENTED BY" 
680 PSETC 68+ I . 136 ). . TPSET : PRINTttl ."HIDE 
YUKI YAMADA": NEXT I 



690 PLAY"S0M20000O5L8EFGG2 . A4GG2 . ECDD2 . E 
CDD2 . C04B05CC2 . C04B05CC2 . F4EE2 . F4EE2 . " 
700 GOTO690 

710 - 7,f-V & ^7 

720 FOR I =0TO 1 : SETPAGE. I : L1NEC 238 . 24 )-C25 
4,32).0.BF:LINEC222.54)-C254.62),0.BF:NE 
XT I : FORJ=0TO 1 : SETPAGE . J : FOR I =0TO 1 : COL0R2 
+ 1 : PSETC 239- I . 24) . . TPSET : PRINT** 1 .USING" 
tttt": ST: PSETC 223- I . 54 ), , TPSET: PRINTttl , US 
I NG " ******** ": MS: NEXT I , J : RETURN 

730 ' 97 ba99" 

740 COPYC80,0)-C95, 15 ) , 2TOCXX*16 , YY*16 ) , 
. TPSET : COPYC 96 , )-C 1 1 1 , 1 5 ) . 2TOC X* 1 6 , Y* 1 
6 ),0: RETURN 
750 ' 9 _ t3-7 ?- -9 



760 DATA 0,( 



1.1.0,2.0.3.3.0.4.0.6.0.7,1 



770 DATA 1,0,1,1.1,2.1,3.3.0.4.0,6.0,7,0 



780 DATA 2,0,2,1,2.2,2.3 
790 ■ 7.7— \>' r*-9 



800 DATA 8777788877778766667776666776666 
6166656776066666666677666446446667876644 
6446678870666666667887664464466787666446 
4466677666666666667766660666666776636777 
663678777788877778,3, 10 

810 DATA 8888777778888887766166778887666 
6666627887644664466787066666666567766666 
6666667766066666666776666666636677664466 
4466678766666266678873666666667888776666 
677888888777778888.4,6 

820 DATA 8888877788888888776667788888766 
6666678888766166667888766666666278871666 
6666678876666266667887666676666788766678 
7666787666678766667765678887666776667888 
736678777888887778.9. 10 

830 DATA 8888887777 178888888706666788888 
8764666777777776466676666666466667066666 
6666678666667773667866666777666785666666 
6266676666666466667777777764666788888876 
466278888887377778. 1 .5 

840 DATA 7777177777777761666466266776666 
777666677666677761 1677660666666667766666 
1666667766666646662776666666666277666666 
6666277066675766667706667776666770666666 
666677777777737777 .2,2 

850 DATA 8888888876756888888876666688868 
8706646788888766666368888766646667888766 
6666678887066466678887666666378887666466 
6788886666666788888066666788888866663788 
888886676788888888, 1, 10 

860 DATA 8888771778888888876667888888876 
6666788888765666627887716666666677766666 
6266627766666663666770666646666677766666 
6663778876666666788888767676788888887666 
788888888777778888.6. 1 

870 DATA 888888766666688888876666 1688888 
7466666688888766616668888706666667888876 
6666666888766666666287761636666677657664 
4662787666666666788746662677788887364778 
888888877788888888 ,11,2 

880 DATA 887 166666778867666666662787 1666 
6666666776662777666626666788873666666788 
888766666678888876666667888887666666 1788 
8766660666677706665766666666663787066666 
666788877666663788, 11,9 

890 DATA 8887788844778887667845666284666 
1484476770664667887677666666788767876764 
667 1767876706666676787667776667678764662 
7667677636667876767706666787666776666388 
066678777788877738,2, 10 




IMPOSSIBLE MISSION 



lff^£&105^-^ldHS 



10 SCREEN1.3:WIDTH32:C0L0R15. 1. 1 :CLS:IFP 

EEK(&H2D)=>1THENC0L0R =(4,0, 1.5): COLOR = 

(5. 1. 1. 6) :COLOR =(6.3, 2. 1) :COLOR =(7. 6. 6 

. 7) : COLOR =(8. 4, 2, I) : COLOR = (13. 6. 7, 7) :C 

OLOR =(14. 4.4. 5) :G0SUB1 070:CLSELSEGOSUB1 

070:CLS 

20 SPRITE! (0) =STRING$ (64. CHRS (255) ) 

30 _TURB0ON 

40 'SET DATA 

50 DEFINTA-Z:DIM E (1 0) . EX (10) , EY (1 0) . EZ ( 

1 0) . EK (30) . EN (30) . EM (30) . ES (30) , EC (30) , E 

P (30) . MM (4) . MX (4) . MY (4) , MZ (4) 

60 A$=CHR$(27)+"L":GOSUB610:FORI=0TO27:P 

UTSPRITEI+4, (0,209) :NEXTI :FORI=0TO9:E (I) 



=0:NEXTI:HP=12:SC=0:X=48:Y=160:SP=8:Z=3: 

RD=0 : RE=0 : ST= 1 : ED=0 : EN=0 : EG=2 :GOSUB960 : G 

OSUB810:GOSUB770 

70 'MAIN LOOP 

80 L0CATE18, 1 8:PRINTSTR1NG$ (HP, "o") :L0CA 

TE18. 19:PRINTSTRING$(HP. " ") :SL=(PEEK(RE 

)) ¥32:RE=RE+I :PRINTCHR$(1 1) : A$ :0NRD*8+ (S 

L + l) GOSUB640. 650. 690, 660, 670. 680, 640. 640 

. 710, 720. 730. 740. 750, 760, 710. 710 

90 IFRE>ST*100THENRE=ST*100:ST=ST+I :FORI 

=0TO4:PUTSPRITE9 + I. (0. 209) :E (I) =0:EX (I) = 

0:EY(I)=209:EZ(I)=0:NEXTI:EN=0:EG=VAL(MI 

DJ ("012430134120131543201240". ST, 1)) 

100 IFST>27THENED=I :GOTO 890 



110 



pOCMMJfOUSE 



110 IFST>26THENRD=1 

120 IFRE>(ST*100)-70THENEN=1 

130 S=STICK (1) :XF=X:YF=Y:X=X+SP* ( (S>5) - ( 

S>1ANDS<5) ) :Y=Y+SP* ( (S=10RS=20RS=8) - (S>3 

ANDS<7) ) : IFX<0ORX>96ORY<8ORY>160THENX=XF 

:Y=YF 

1 40 IFSTRIG (1.) ANDSTRIG (3) THENIFSTICK (1 ) = 

1THENZ=Z-IELSEIFSTICK(1)=5THENZ=Z+1 

150 IFZ=6THENZ=5ELSEIFZ=0THENZ=1 

160 IFSTRIG (1)ANDBM=0THENBM=1 

170 IFSTRIG (3) THEN MM=MM+1 :MM=MMMOD3: IFM 

M(MM)=0THENMM(MM)=1 

180 PUTSPRITE4, (X, Y) . 7, 2:PUTSPRITE5. (X. Y 

) . 1 5. 1 : PUTSPR I TE27, (XF. YF+Z*6) .1.1: PUTSP 

RITE28. (XF. YF+Z*6). 1. 2 

190 IFBM=>ITHENGOSU8250 

200 FOR I =0TO2 : IFMM(I) =>1 THENGOSUB300 : NEX 

TI:ELSENEXTI 

210 1 FST<23THENGOSUB350ELSEI FST=24THENGO 

SUB470 

220 IFHP<=0ORSTRIG(0)THENGOSUB850:GOTO 8 

90 

230 GOTO 80 

240 'BOMB SUB 

250 I FBM= 1 THENBX=X : BY= Y-4 : BZ=Z- 1 : BM=2 : I F 

ST ICK ( 1 ) =5THENBH=-2ELSEBH= 1 

260 BY=BY-12»BH:BZ=BZ-1 :PUTSPRITE6, (BX, B 

Y) , 1 4, 9 : PUTSPRITE7. (BX. BY+BZ*6) ,1,9 

270 I FBY<0ORBY> 1 80ORBZ<0THENBM=0 : PUTSPR I 

TE6. (0. 209) :PUTSPRITE7. (0. 209) 

280 IFBM=3THENBM=0:PUTSPRITE6. (0,209) :PU 

TSPRITE7. (0. 209) 

290 RETURN 

300 FORI=0TO2:IFMM(I)=ITHENMX(I)=X:MY(I) 

=Y:MZ(I)=Z:MM(I)=2 

310 MY(I)=MY(I)-SP*2:PUTSPRITE8+I. (MX (I) 

-l.MY(I)). 13. 8:PUTSPRITE29+I, (MX(I)-l.MY 

(I)+MZ(I)*6). I. 8 

320 IFMY (I) <0ORMM (I) =3THENMM (I) =0: PUTSPR 

ITE8+I. (0. 209) :PUTSPRITE29+I. (0,209) 

330 NEXT I : RETURN 

340 'ENEMY SUB 

350 FORI=0TO4 

360 IFE(I)=0ANDEN=ITHENPUTSPRITE11 + I. (0. 

209) :PUTSPRITE16+I. (0. 209) :NEXTI :RETURN 

370 IF E(I)=0THENEX(I)=EK(I+EG*5) :EY(I) = 

EN(I+EG*5) :EZ(I)=EM(I + EG«5) :E(I)=1 

380 EY(I)=EY(I)+EP(I+EG*5) :IFEY(I) =208TH 

ENEY(I)=210 

390 PUTSPRITE11 + I. (EX (I) , EY (I) ) . EC (I+EG* 

5), ES(I+EG*5) :PUTSPRITE16+I. (EX(I). EY(I) 

+ EZ(I) *6), 1. ES(I+EG*5) 

400 IFX-16<EX(I)ANDEX(I)<X+16ANDY-32<EY( 

I) ANDEY (I) <Y+32ANDEZ (I) =ZTHENHP=HP-1 :GOS 

UB850 

410 IFBX-16<EX(I)ANDEX(I)<BX+16ANDBY-24<- 

EY (I) ANDEY (I) <BY+32ANDBZ=EZ (I) ANDBM=2THE 

NPUTSPRITE11 + I, (0,209) : PUTSPRITE1 6+1, (0, 

209) :SC=SC+1 :E(I)=0:EN=1 :BM=3:GOSUB860:N 

EXT I : RETURN 

420 FORJ=0TO2 : IFMX (J) - 1 6<EX (I) ANDEX (I) <M 

X (J) + 1 6ANDMY (J) -24<EY (I) ANDEY (I ) <MY (J) +3 

2ANDMZ(J)=EZ(I)ANDMM(J)=2THENPUTSPRITE1 I 

+ 1, (0. 209) :PUTSPRITE16+I. (0. 209) :SC=SC+1 

: E ( I ) =0 : EN= 1 : MM (J) =3 : GOSUB860 : NEXT J : NEXT 

I :RETURNELSENEXTJ 

430 IFEY(I)>212OREY(I)<-I6THENE(I)=0:EN= 

1 

440 NEXT I 

450 RETURN 

460 'BOSS SUB 

470 IFE (0) =0THENEX (0) =48 : EY (0) =-64 : EZ (0) 

=0:E (0) =400:EX=0:EY=0:EZ=0:SM=I 

480 EY (0) =EY (0) + ( (RND (1 ) *5) - 1 ) *SM: R=RND ( 

1) *3:IFR=0ANDEZ=0THENEZ=1 :EX=EX(0) :EY=EY 

(0) + (RND (1) *2) *6+4:GOSUB500:ELSEIFEZ>0TH 

ENEZ=EZ+1 :EX=EX+XR*EZ¥2:EY=EY+YR*EZ 

490 GOTO 530 

500 IFX<EXTHENXR=-1ELSEIFX=EXTHENXR=0ELS 

EXR=1 

510 IFY<EYTHENYR=-1ELSEIFY=EYTHENYR=0ELS 

EYR=1 

520 RETURN 

530 PUTSPRITE16. (EX (0) . EY (0) ) , 1 4. 1 0:PUTS 

PRITE17. (EX (0) , EY (0) ) , 7. 13 

540 PUTSPR ITEM. (EX (0) , EY (0) +32) . 1 4. 1 1 : P 

UTSPRITE15. (EX (0) , EY (0) +32) , 7, 14 

550 PUTSPRITE12. (EX (0) , EY (0) +64) . 1 4, 1 2:P 

UTSPRITE13, (EX(0), EY(0)+64). 7. 15 

560 I FEZ= 1 4THENEZ=0 : EX=0 : EY=209 : PUTSPRI T 

Ell. (0, 209JELSEPUTSPRITE1 1. (EX, EY) . 13. 1 6 

+ EZ¥3 

570 IFX-8<EXANDEX<X+8ANDY-8<EYANDEY<Y+8A 

ND (EZK3) =Z-1THENHP=HP- (6-Z) :GOSUB850 



580 I F8X-24<EX (0) ANDEX (0) <BX+24ANDBY-80< 

EY (0) ANDEY (0) <BY+24ANDBZ=EZ (0) ANDBM=2THE 

NE (0) =E (0) -5:GOSUB860:BM=3: IFE (0) <=0THEN 

SC=SC+CM* 1 : E (0) =0 : FOR I =0TO6 : GOSUB870 : PU 

TSPRITE1 1 + 1. (0. 209) :NEXTI :RE = 100*ST:RETU 

RN 

590 I FEY (0) <-320REY (0) > 1 80THENSM=SM*- 1 

600 RE=RE-2: RETURN 

610 'MASK 

620 FORJ=0TO3:PUTSPRITEJ. (J«32. -17) . 1, 0: 

NEXT J: RETURN 

630 'SCROLL (1) 

640 PRINT gjhhhhigdc'd": RETURN 

650 PRINT"'c' "gjhhhijfdcee": RETURN 
660 PRINT" e ' dgjhh i j i gdcc ' " : RETURN 
670 PRINT" e'dgjijhhifd'c'": RETURN 
680 PRINT" e'dgijhhhifc'c'": RETURN 
690 PRINT" ' 'c'akklnkkbcc' '":RETURN 
700 'SCROLL (2) 

710 PRINT" rrurqjhhhhiprrrr": RETURN 
720 PRINT"rrurqjhhhhipsrrr":RETURN 
730 PRINT"rturqjhhhhiprtrr": RETURN 
740 PRINT"rrsrqjhhhhiprrwr":RETURN 
750 PRINT"rrutqjhhhhiprrrw": RETURN 
760 PRINT'rrurrvvvvvvrrrrr": RETURN 
770 'OPENING SUB 

780 PRINT:PRINT"cedcdlmmmmndedee" 
790 FORI=!TO20:PRINT"eecddprrrrqdddcd":N 
EXT I: RETURN 
800 'TITLE 

810 LOCATE8. 6:PRINT"IMPOSSIBLE MISSON":L 
OCATE7, 15:PRINT"PUSH TRG (1) BOTTAN":PUT 
SPRITE4. (1 14. 72) . 7. 2:PUTSPRITE5. (I 14. 72) 
. 15, 1 :FORI = 1TO5000:NEXTI 
820 IFSTRIG(1)THENCLS:RETURN 
830 GOTO 810 
840 'SOUND 

850 SOUND7. 49:SOUND6. 31 :SOUND8, I6:S0UND1 
2, 100: SOUND 13. 9: RETURN 

860 SOUND7, 49:SOUND6, 31 :S0UND8. 16:SOUNDl 
2, 50: SOUND 13. 9: RETURN 

870 SOUND7, 49:SOUND6. 31 :SOUND8, 16:SOUNDI 
2, 255:SOUND13. 9: RETURN 
880 'GAMEOVER SUB 
890 CLS:PUTSPRITE0, (0.208) 
900 LOCATE 10. 7: PR I NT "GAME OVER" 
910 LOCATE10. 10: PRINT'SCORE: * :SC: IFSOHI 
THENHI=SC 

920 LOCATE10. 1 2:PRINT*HI-SCORE: " :HI 
930 IFED=1THENL0CATE8. 14:PRINT"MISSON CL 
EAR ! I ! " 

940 IFSTRIG(l)THENCLS:GOTO 60 
950 GOTO 940 
960 'ENEMY-DATA 

970 RESTORE990:FORI=0TO29:READEK(I). EN (I 
). EM (I). ES(I).EC(I).EP(I) :NEXTI:RETURN 
980 "X, Y. Z, PATTAN. COLOR. SPEED 
990 DATA 0, -16, 4. 4. 14. 4 . 24. 0, 3. 4. 14. 4 . 
48. 8, 3. 4. 13. 4 . 72. 0. 3. 4. 1 4. 4 . 96, -16. 4, 4 
. 14. 4 

1000 DATA 0, -16, 4. 5, 13, 4 . 24. 16. 2. 5. 13. 4 
. 48,0, 3,5. 7.4 . 72. 16. 2. 5. 13.4 .96. -16.4 
. 5, 1 3. 4 

1010 DATA 0, -16, 4. 6. 14. 8 . 96, -16, 4, 6. 14. 
8 . 48. 0. 3. 6, 7, 8 , 0. 1 6. 2. 6. 1 4. 8 . 96. 1 6. 2. 
6. 14.8 

1020 DATA 0. -16. 4. 7. 14, 3 .96.-16.4. 7. 14. 
3 . 48. 8. 3. 7. 1 4. 5 . 0, 0. 2. 7. 1 4. 4 . 96, 0, 2, 7 
.14.4 

1030 DATA 0.212, 4.3. 12. -4 .96. 212. 4.3. 12 
. -4 . 48, 1 96, 3. 3, 2. -4 . 0, 1 80. 2. 3. 1 2. -4 ,9 
6, 180, 2.3. 12. -4 

1 040 DATA 0. - 1 6. 2. 6. 1 4. 7 . 96. - 1 6. 2. 6. 1 4. 
7 . 48. 1 6. 5. 4. 7. 8 . 0. 1 6. 2. 6. 1 4. 7 . 96. 1 6. 2 
. 6. 1 4. 7 
1050 _TURBOOFF 
1060 END 

1070 RESTORE! 100:FORC=96TO1 19:FORI=0TO7: 
READD:VPOKEC*8+I, D:NEXTI :NEXTC: FORI=8204 
TO8206:READA:VPOKEI. A:NEXTI : FORI = I TO20:F 
ORJ=0TO31 :READD$:A$=A$+CHR$ (VAL ("*H"+D$) 
) :NEXTJ:SPRITEt(I)=A$:A$ = "":NEXTI 
1080 RETURN 
1090 'CHR DATA 

1 100 DATA 248, 222, 253, 247. 191, 239. 253, 22 
3,0, 224.222. 251. 219. 247. 191. 237.0. 3.31. 1 
25. 239, 253, 223, 251 

1110 DATA 1 27. 22 1 . 255, 1 83, 255. 223, 25 1 , 25 
5, 124, 254, 239. 127,237, 191. 245. 191. 248. 22 
2, 247. 191. 239, 253, 191, 247 
1 1 20 DATA 2. 5. 64. 1 60. 0. 4. 1 0. 0, 0, 32. 80. 0, 
4. 74, 1 60, 0. 0, 0. 64. 0, 4, 0. 64. 
1 1 30 DATA 3, 1 . 3. 7. 1 . 3. 7. 3. 1 28. 1 92. 1 28. 12 
8. 1 92. 1 92. 1 28. 1 28. 0, 255. 0. 255. 255. 85, 1 70 



1 1 40 DATA 1 28, 1 28, 1 92, 224, 1 92. 240, 245. 25 

5, 0. 0. 0. 0. 0. 32. 1 1 7. 255. 1 . 3. 7. 3. 1 5. 7. 1 75. 

255 

1 1 50 DATA 255, 1 29. 1 89, 1 65, 1 65. 1 89. 1 29, 25 

5. 192. 192. 192. 192, 192. 192, 192. 192. 3. 3, 3, 

3. 3, 3. 3. 3 

1 1 60 DATA 0. 0. 0. 0. 0. 0, 0, 0, 1 6, 1 6. 56. 56. 1 2 

4. 254. 56. 84, 84, 56. 254, 124. 56. 56. 16. 16 

1 170 DATA 24. 24, 24, 0. 0. 0, 24. 24, 255, 170, 

. 0, 0, 255. 170. 255, 0, 24. 36, 60, 44, 86. 106. 60 

1 180 'COLOR 

1190 DATA &H68. &H54. &HFE 

1200 "SPRITE PATTRN DATA 

1210 DATA 01, 01. 01. 01. 01. 03, 03. 07. 1 7, 1 7 

33. 73. 65. CD. 9D, 0B 

1 220 DATA 00. 00. 00, 00, 00. 80, 80. C0. D0. D0 

98. 9C. 4C. 66. 72, A0 

1230 DATA 00, 00. 00.00, 01, 01, 01. 01, 08, 

08. 08. 02. 82, 82, 08 

1 240 DATA 00, 00, 00, 00, 00. 00. 00. 00. 20. 20 

20. 20. 80. 82. 82. 20 

1250 DATA 01. 01, 01, 01, 01. 03. 03. 0B, IB. 3B 

3B. 03. 03. 01,03. 07 

1 260 DATA 00, 00, 00, 00, 00, 80, 80. A0. B0, 

B8, 80. 80. 00. 80. C0 

1270 DATA 05. 0D. 0D. 03, 03. 0F. IF, IF. 0F, 07 

03,01. 01, 01. 01. 01 

I 280 DATA 40, 60, 60. 80, 80, E0. F0, F0, E0. C0 

80. 00, 00, 00, 00, 00 

1290 DATA 0F. 07. 03. 01, 63, 7B. 7B, 3B. IB. 2B 

27.03.03.01.01. 01 

1 300 DATA E0. C0. 80. 00, 8C, BC. BC. B8. B0. A8 

C8. 80. 80. 00, 00. 00 

1310 DATA 0D. 07. 03. 33. 3D. 3D. ID. 0D. 05. 03 

03.03.01.01.01.01 

1 320 DATA 60. C0. 80. 98, 78, 78, 70. 60. 40, 

80. 80, 00, 00, 00. 00 

1 330 DATA 0B. 9D, CD, 65. 73. 33. 17. 17. 07. 03 

03.01.01,01,01.01 

1 340 DATA A0, 72. 66. 4C, 9C. 98, D0, D0, C0. 

80, 00, 00, 00, 00, 00 

1 350 DATA 00, 00. 00. 00. 00. 00, 04. 04. 04, 04 

04, 04. 04, 0A, 0A. 0A 

1 360 DATA 00, 00. 00, 00, 00, 00, 20, 20. 20. 20 

20. 20. 20. 50. 50. 50 

1370 DATA 00. 01, 03, 03. 03, 03. 03. 03. 03. 03 

03.03.03,01,00.00 

1 380 DATA 00. 00. 80, 80, 80. 80. 80, 80. 80, 



1390 DATA 00, 01, 02, 04, 04, 08. 08. 10. 11. 22 

2B. 2A. 29. 2A, 2B. 29 

1400 DATA 00, 80. 40. 20, 20, 10. 10, 08. 88, 44 

D4, 54, 94, 54. D4. 94 

1410 DATA 2A, 28. 22. 25. 22. 27. 2B, 27, 2B. 26 

29, 25,23, 22. 21. 24 

1420 DATA 54. 14. 44. A4. C4. 64, D4. 64, D4, E4 

94. A4, 44. C4, 84. 24 

1 430 DATA 2D. 2B. 12. II. 08. 04, 04, 02, 01 . 00 



1 440 DATA B4. D4. 48. 88. I 0. 20, 20. 40, 80. 

00, 00, 00, 00. 00, 00 

1 450 DATA 00, 01 , 03, 03. 07. 0F. 0F, IF. IF. 3F, 

3F. 3F. 3F. 3F. 3F. 3F 

1 460 DATA 00. 80. C0, C0, E0. F0, F0. F8. F8, FC, 

FC. FC, FC. FC. FC. FC 

1 470 DATA 3F. 3F. 3F. 3F, 3F. 3F. 3F. 3F, 3F, 3F 

3F. 3F. 3F. 3F. 3F. 3F 

1 480 DATA FC. FC. FC, FC. FC. FC. FC. FC. FC. FC 

FC. FC. FC. FC. FC, FC 

1490 DATA 3F, 3F, IF, IF, 0F. 07, 07. 03. 01. 00 

00, 00, 00, 00, 00, 00 

1 500 DATA FC, FC. F8, F8. F0, E0. E0. C0, 80, 00 

00. 00, 00, 00, 00, 00 

1510 DATA 00, 00. 00. 00, 00, 00, 00. 00. 01. 00 

00, 00, 00, 00, 00, 00 

1 520 DATA 00, 00. 00. 00. 00. 00.. 00, 00, 80, 00 

00, 00, 00, 00, 00. 00 • 

1 530 DATA 00. 00. 00. 00. 00, 00, 00. 01, 02, 01 

00, 00, 00, 00. 00. 00 

1 540 DATA 00. 00. 00. 00, 00, 00, 00. 80. 40. 80 

00 

. 00. 00. 00, 00. 01. 02. 06. 03 

00 

. 00, 00, 00. 00. 80, C0. 60. 40, 



1550 DATA 
51, 00, 00, 
1560 DATA 



1 570 DATA 00, 00, 00, 00, 00, 08. 05, 02, 06. 03 

05, 08. 00, 00, 00. 00 

1 580 DATA 00. 00. 00, 00, 00, 1 0, A0, C0, 60. 40, 

A0, 1 0. 00. 00. 00, 00 

1 590 DATA 00, 00. 00, 00. 00, 00. 00. 00. 00. 

00. 00, 00, 00. 00. 00 

1 600 DATA 00, 00, 00, 00, 00, 00, 00. 00, 00, 



111 
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